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LABEL OOOOOOOOOPRNT 00177105?USER*S ITE ; EXECUTE COPY 

FILEI SnOBOL/ SITE 



/SITE 

FRI 4/15/77 12J05PM 



COPY /SITE 



m 
m 



m 
m 
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20000 

30000 

40000 

50000 

60000 

70000 

80000 

90000 

100000 

110000 

120000 

130000 

140000 

150000 

160000 

170000 

lflOOOO 

190000 

200000 

210000 

220000 

230000 

240000 

250000 

260000 

270000 
280000 
290000 
300000 
310000 

320000 
330000 

340000 
350000 
360000 
370000 
380000 
390000 
400000 
41 0000 
420000 
430000 
440000 
450000 
460000 
470000 
480000 
490000 
500000 
510000 
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85500 SN0B0L3 SYSTEM, 
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JOHN M. CHAMBERS 

DEPT, OF COMPUTER SCIENCES 

UNIVERSITY OF WISCONSIN 

1210 W. DAYTON ST, 

MADISON* WISCONSIN 53706 



USERS MANUAL AVAILABLE FROM ABOVE ADDRESS, 



OATA REPRESENTATION* 

TO TAKE ADVANTAGE OF THE CHARACTER MQOE STRING COMPARE AND MOVE 
INSTRUCTIONS* STRINGS ARE STORED AS CONSECUTIVE CHARS* PRECEDED BY A 
3-.CHAR BACK-POINTER TO THE SYMBOL TABLE. THIS POINTER CONSISTS OF AN 
"ILLEGAL CHARACTER" FOLLOWED BY 2 CHARS (12 BITS) GIVING A SYMBOL 
TABLE LOCATION (SEE DESCRIPTION OF SYMBTABL), STRINGS ARE STORED IN 
ROWS OF THE ARRAY DATA[*,*J. 
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DUE TO THE SIZE LIMITATIO 
WAS FELT UNnESlRABLE TO BREA 
THE SIZE OF A STRING — 8181 C 
EXCEEDED* THE PROCEDURE STRI 
FLAG DEATH TO TRUE* TERMINAT 

A STRING IS IDENTIFIED BY 
DESCRIPTOR* THE FOLLOWING FI 
DECLARATIONS)* 

DiSJ SIZE OF STRING 

O.RS STRING IS IN DATACO. 

DlCHt FIRST CHAR OF STRIN 

in other words* the string c 
chars after datacd.r.d, w3 . 

note that* since all stri 
to symbtabl, the value of th 
is used to distinguish cells 
as the valuf parts for strin 
value). thus* if the ch fie 
and the value is considered 
in such casfs, 

several "bugs" have been 
that string descriptor may 
avoided v testing to see if 

STRING eYists; IF NOT* THERE 



N ON ALGOL ARRAYS* 
K UP A STRING* THER 
HARS, TO BE EXACT. 
NG WILL PRINT A DIA 
ING THE PROGRAM, 

A 31-BIT "DESCRIPT 
ELDS LOCATE THE STR 



R**3 

G* RELATIVE TO DATA 

ONSISTS OF D.S CHAR 

NGS ARE PRECEDED BY 
E CH FIELD MUST BE 

WHICH HAVE "MISSIN 
GS WHICH HAVE NOT B 
LD IS < 3* THERE IS 
TO BE NULL. THE S 

FOUND TO BE CAUSED 
NOT POINT TO A STR 
THE CH FIELD IS > 
1$ NO STRING* AND 



AND THE FACT THAT IT 
E IS A LIMITATION TO 

IF THIS LIMIT IS 
GNOSTIC AND SET THE 

QR°* IF D IS SUCH A 
ING (SEE DEFINE 



CDfR*01 
ACTERS* 



STARTING D.C 



A 3*CHAR POINTER 
> 3, THIS FACT 
G" VALUES (SUCH 
EEN ASSIGNED A 

NO STRING ATTACHED* 
FIELD SHOULD BE 

BY NOT RECOGNIZING 
ING — THIS CAN BE 
3, IF SO* THE 
THE VALUE IS NULL. 
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J*********************************************************************** 
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520000 
530000 BEGIN 

540000 INTEGER COMMON; % 

550000 X C47U3 * t TURNS 

560000 X C46* 13 n 1 CAUSES 

570000 X C45U3 * 1 SAYS T 

580000 X SYSTEM DEBUGG 
590000 DEFINE 

600000 C*C45»33#* 

610000 C1"C6*6]## 

620000 C2«ti2*63i* 

630000 C3*C18»63## 

640000 c««C?ft*6]#» 

650000 C5»E30:63## 

660000 G6«C.l6S6]*« 

670000 C7«U2»63#» 

680000 CH»t35il33#i 

690000 C6U0TE4* , »""r24:42*6 

700000 CGU0TE5*«""r30*4216 

710000 CONCR«t30Ui;53## 

720000 C0NCS«C17»35U33#* 

730000 C0NCW*[35*3«lt03#* 

740000 C0NTR0LP0INT*INSTU 

750000 0ATASlZEs31## 

760000 DISKrECQR8*REC0RD*» 

770000 F* FALSE ## 

780000 FIRSTCHARCFIRSTCHAR 

790000 (rlRSTCH4Rl),C*# 

800000 INTRTNSMAX*l7## 

810000 MAXLABELLIMTT*15## 

820000 MAXLFVEL»JOO#* * M 

830000 MAXSuSPEN0REAS0N«i3# 

840000 MNEMMAX=;20#» 

850000 NUMC0NTR0LCARDS»21# 

860000 X 

870000 X 

880000 R3[30»5]#» X 

890000 R'CH*[30il*]## X R 

900000 S»t 17 1 131#* X S 

910000 SEGMENT ■ LABEL DUM 

920000 STACkSIZE«50#» * S 

930000 STRINGIOCCSTRINGUOC 

940000 T« TRUE #» 

950000 TEMP*AA#* * 

960000 TEMPi*AB#» % 

970000 TEMP2*AC*> X 

980000 TEMPCELCTEMPCELD ■ 

990000 VERSION a 3^0#* X V 

1000000 X 2.0 IS THE REWR 

101000b X 2ll INCLUDES Fa 

1020000 X 2.2 HAS MOST SY 

1030000 X 3.0 HAS THE ARRA 

1040000 Wsf35»103#J * W 
1050000 DEFINE 

1060000 ABORT ■ GO TO ABORT 

1070000 SETLIMITFLAG ■ ALlM 
1080000 CPUUMlTfXlSTS 



THESE BITS 
ON TRACING 
A COMPLET 
HAT MODEC" 
ING AIDS, 



ARE CURRENTLY RELEVANT* 

FOR ALL VARIABLES, 
E DUMP AT THE END OF RUN, 
INFORM") OR -INFORM IS TO TURN ON 



X CHAR WITH IN WORO OF STRING DESCRIPTOR 






X CHAR OF DAT 



3## 

3#» 

X 

X 



X 

X 

MOVE 
MOVE 



M 
M 
T 
T 

X MOVE T 
NSTRUCT],N 

X UPPER 



AC***J ROW OF STRING DESCRIPTOR 

OVE QUOTE TO CHAR 4 

OVE QUOTE TO CHAR 5 

R FIELD 

S FIELD 

W FIELD 

EARPOINT#* 

BOUND ON FIRST SUBSCRIPT OF DATAC***3 



n*DATACCFlRSTCHARl),R#<FIRSTCHARn,W3# 



X MAX * 
X MAX NU 
AXIMUM ALL 

* X NUMBER 

» X NUMBER 
MUST B 
TO BE 

ATAC*,*] R 

* W» AND C 
IZE OF STR 
MYJ#» X F 
IZE OF INT 
1)»(STRING 



INTRINSIC FCTS OF SAME SIZE 
MBER OF LABEL LIMITS FOR DEBUGGING 
OWED DEPTH OF FUNCTION CALLS 
DIFFERENT REASONS FOR SUSPENDING, 



OF CONTROL CARDS IMPLEMENTED; 
E CHANGED IF NEW CONTROL CARDS ARE 
IMPLEMENTED 
OW OF STRING DESCRIPTOR 

FIELDS 
ING 

OR FORCING NEW SEGMENT, 
ERPRETER STACK ARRAYS 
L0Cl),S*FIRSTCHAR(STRIN6LQCn#> 



• 
• 

m 



TEMPCELL#» X PARAMETER NO LONGER IN USE 
ERSION NUMBER! 
ITTEN COMPILER. 

TAL ERROR SUSPENSIONS WHEN DEBUGGING* 
STEM DEBUGGING AIDS CHANGED TO COMMENTS, 
Y USEDCELLt*] DELETED (CHANGES LIBRARY FILES), 
ORD WITHIN DATAC***] ROW OF STRING DESCRIPTOR 

IONJ## X FATAL SYSTEM ERROR, 
ITEXISTS «• 

R 



c 



• 
• 



• 

• 
• 



1090000 
1100000 
1110000 
1120000 
1130000 

1140000 
1150000 
1160000 
1170000 
1180000 
1190000 
1200000 
1210000 
1220000 
1230000 
1240000 
1250000 
1260000 

1270000 
1280000 

1290000 
1300000 
1310000 
1320000 
1330000 
1340000 
1350000 
1360000 
1370000 
1380000 
1390000 
1400000 
1410000 
1420000 
1430000 
1440000 
1450000 
1460000 
1470000 
1480000 
1490000 
1500000 
1510000 
1520000 
1530000 

1540000 
1550000 
1560000 
1570000 
1580000 
1590000 
1600000 
1610000 

1620000 
1630000 

1640000 

1650000 



IOLIMITEXISTS OR 
RULEUMITEXISTS OR 

{DEBUGGING AND 

(DEBUrRULELIMITEXISTS 
NLASELLIMIT i 

) 
) 

*} 
BOOLEAN 

ALIMITEXISTS* % 

Bl* % 

CONVERTS X 

CONVeRTSTRInGS* X 

CPULIMITEXISTS* X 

DATACOMF, X 

DEATH* X 

DEBUGGING* X 



OR 






THERE IS A LIMIT TO CHECK AT START OF INSTS, 
TEMPORARY BOOLEAN "REGISTER" 
DECK IS 026 CHAR SET 
CONVERT 3600 I/O STRINGS 

DATA COM UNIT IN USE 
FATAL ERROR HAS OCCURRED 
DEBUG MODE IN USE 



DEBUGRULELIMITEXISTS* 



EXECUTE 
EXECUTE 

EXECUTE 
TRUE IF 
DUMP IF 
SET FALSE IF 
PRINT SYSTEM 



.:..: DMPDATA* X 

DMPST* % 

OMPSTR* X 

DUMPALL* X 

ERRDUMP* X 

EXECUTE* X 

INFORM* X 

IOLIMITEXISTS* X 

LOAOF* X 

PRINTMESSA6FS* X 

RESULT* X 
RULELIMITEXTSTS»X 
SYSTEMDE8UG6IN6*X 

SYSTFMERROR, X 

traceall; x 

BOOLEAN ARRAY 

SUSPENDREAS0NC0JMAXSUSPENDREAS0N3* 



WRITEDATA AT END OF RUN 
WRITEST (DUMP SYMB TABLE) 
STRINGDUMP AT END OF RUN 
COMPLETE DUMP TO BE DONE AT 
FATAL PROGRAM ERROR 

FATAL ERROR DURING COMPILATION 

DEBUGGING MESSAGES 



• 

m 



AT ENO OF RUN 



EOJ 



LOADER IS BEING EXECUTED 

PRINT DIAGNOSTIC (WARNING) MESSAGES. 

SUCCESS/FAIL FLAG FOR INTERPRETER 

TRUE IF COMMON, C45J11 * 1 

FATAL ERROR BY SNOBOL SYSTEM, NOT PROGRAM 

TRACE EVERY VARIA8LE WITHOUT I/O USE 



X REASONS FOR SUSPENDING PROGRAMS 



% 
% 
% 

% 

USEDROWtOlOATASIZEj; 
INTEGER 

ANCHORMODE* X 

ANCHORSIZE* X 

DCSIZE, X 

DEBUGRULELIMIT* 

DIVIDEMODE, X 

GCS, X 

I* 

II* 12* 

J* 

LEVEL* X 

LISTSPACES* X 

LOAOERLEVEL, X 

MAXINSTSIZE, X 

nlabellimit, X 
parencount* X 

RW, X 



0« SUSPENDO WAS EXECUTED 
II RULE LIMIT WAS HIT 
2! LABEL LIMIT WAS HIT 
31 FATAL ERROR IN PROGRAM 
DATACI**3 IS IN USE 



2> UNANCHORED* 31 ANCHORED 

FOR ANCHORED MODE* SIZE OF INITIAL SEGMENT 

SIZE OF LAST INPUT FROM DCREAD 

01 ROUND) 1« TRUNCATION/ 2t INTEGER 
NUMBER OF GARBAGE COLLECTOR CALLS 



• 



X TEMPORARY INTEGER "REGISTERS". 



OF THE INTERPRETER 
LINES OF LISTING 



LEVEL (OR DEPTH) OF RECURSION 

NUMBER OF BLANK LINES BETWEEN 

LEVEL OF RECURSION IN LOADER 

SIZE OF LARGEST PROGRAM SEGMENT (IN CHARS) 

NUMBER OF LABEL LIMITS SET AT LAST SUSPENSION 

DEPTH IN PARENTHESIS NESTING (COMPILE AND SCAN) 

NEW STRINGS COME FROM DATAfRW,*3 (SEE STRING) 



# 



** s »(Dttk ■ 






***ff*iPJ»s. * 



"mm\ 






# 






1660000 
1670000 
1680000 
1690000 
1700000 
1710000 
1720000 
1730000 
1740000 
1750000 
1760000 
1770000 
1780000 
1790000 
1800000 
1810000 
1820000 
1830000 
1840000 

1850000 
1860000 
1870000 
1880000 
1890000 
1900000 
1910000 
1920000 
1930000 
1940000 
1950000 
1960000 
i 970000 
1980000 
1990000 
2000000 

2010000 
2020000 

2030000 
2040000 
2050000 
2060000 
2070000 
2080000 
2090000 
2100000 
2110000 

2120000 
2130000 
2140000 
2150000 
2160000 

2170000 
2180000 
2190000 
2200000 
2210000 
2220000 



TEMPROW* 

unit; 
integer arr 
convertv 

DOTTY 
OPLEV 

DPNTR* 

NOTMO 

% 
MONTHStl 
RULESCO* 

Real 

cpulimit 

GCTlMECP 
GCTIMEIO 
IOLIMIT* 
RANDNO* 
RUtELlMI 
TEENYNEG 
ALPHA 

AA*AB*AC 
ARROW* 
BLANK* 
BLANKS* 

COLON* 

COMMA* 

CRLF* 

ESSIGN* 

QMARK* 

QUOTE* 

PRINTLOC 

SLASH* 
STAR, 

stopper; 

alpha array 

buffered 

bufoutco 

CODEFOJl 
CONTROLC 
DATAtOJD 

INTRlNSF 
INTRjNSN 

labellim 

X 

MNEMONIC 

NEXTRECO 
SCRATCHC 

WOROSCO* 
MONITOR INT 
X********SY 
X 

X THE SYM80 
X 
X 

X EVERY DAT 
X AN ENTRY 



X ROW OF SYM8 TABLE GIVING TEMP CELLS 

X USED BY I/O ROUTINES— FILE NUMBER 

AY 

AL* * FOR CHAR SET CONVERSIONS 

PE* X PARTITIONS CHARS IN INTERNAL REP. OF ARITH* 

ELCOI63J* % PRECEDENCE LEVEL OF ARITH OPS 

X POINTER TO NEXT AVAILABLE CHAR 



VEDrOIDATASlZEl* 

9123* X NUMBER 
MAXlEVELin X A 



IN DATAU**] 
MOVED BY LAST 



X POINTS TO FIRST CHAR 
OF GARBAGE COLLECTOR, 
OF DAYS IN EACH MONTH 
RULES EXECUTED AT VARIOUS LEVELS 



CALL 



» 
* 
* 

T* 

9 



LIMIT TO CPU TIME IN SECONDS, 
CPU TIME SPENT COLLECTING GARBAGE 
I/O TIME SPENT COLLECTING GARBAGE 
LIMIT TO I/O TIME IN SECONDS, 
NUMBER FOR *RANF FUNCTION 
LIMIT TO NUMBER OF RULES EXECUTED. 
* 0CT3777777777777777 

TEMPORARY ALPHA "REGISTERS" 



m 
m 
m 



ti * 



m j « 



(8 BLANKS) 



9 "Si*** 

9 " = « 

ILLEGAL CHAR 

9 t» ft tt 

SYMBOL TABLE LOCATION OF PRINT (SEE CODE 
FOR SYSPOT IN SNBLOUT.) 
s «/" 

55 M*tf 

■ BLANK & QUOTE & QMARK (FOR ENDING SCANS.) 



Jl4l* X USED BY 
1163* X FOR BUIL 
0221* 

ARDrO'NUMCQNTROLCA 
ATASIZE»0'1022]* 
CT[ 3»7*0UNTRINSMA 
DXC3»7*1UNTRINSMA 
iTtOtMAXLABELLIMIT 
LABEL 
[0*1*0*MNEmMAX3# 
RDtO»15*0»l73* X H 
0*10223* X TEM 

303; X VAR 

ovr, expovr* index 
mBol table******** 

l table* 



COMPILER TO H0L0 NEXT INPUT CARD 
DING PRINTER OUTPUT MESSAGES, 

RDS3* X NAMES OF CONTROL CARDS 
X STRING AND PROGRAM STORAGE AREA 
X3* X NAMES OF INTRINSIC FUNCTION, 
X3* X INDICES OF INTRINSIC FUNCTIONS, 
3* X SYMBOL TABLE LOCATIONS OF 

LIMITS DURING DEBUGGING 
X VARIOUS MNEMONIC COMMANDS AND WORDS 

olos records for look-type strings 

porary string array 

ious alphanumeric strings 

* flag; 

******************************************* 






A OBJECT (STRINGS* LITERAL* FUNCTION* LABEL) 
IN THE SYMBOL TABLE. THIS TABLE CONSISTS OF 



REQUIRES 

THE FOLLOWING 






• < 



-• 

6 



# 
• 






2800000 
2810000 
2820000 
2830000 
2840000 
2850000 
2860000 
2870000 
2880000 
2890000 
2900000 
2910000 
2920000 
29 30000 
2940000 
2950000 
2960000 
2970000 
2980000 
2990000 
3000000 
3010000 
3020000 
3030000 
3040000 
3050000 
3060000 

3070000 
3080000 

3090000 
3100000 
3H0000 

3120000 
3130000 
3140000 
3150000 
3160000 
3170000 
3180000 
3190000 
3200000 
3210000 
3220000 
3230000 
3240000 
3250000 
3260000 
3270000 
3280000 
3290000 
3300000 
3310000 
3320000 
3330000 
3340000 
3350000 
3360000 



INTEGER ARRAY 

NEXTCELLC0JSTRMAX3; 



X 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

r 
% 

% 

-% 

% 
% 

% 

% 
% 
% 

% 
% 
% 
% 
% 
% 
% 
% 

X 

% 

% 
% 
% 
% 
% 
% 
% 
'% 
% 
% 
% 
% 



% HEADS OF AVAILABLE SPACE LISTS, 



f 



A SYMBOL TABLE ENTRY CONSISTS OF THREE WORDS— ONE WORD 

FROM EACH OF THE THREE ARRAYS, A "SYMBOL TABLE,. ADORESS* IS A 

12-BIT INTEGER CONSISTING OF TWO FIELDS CALLED STR AND STW 



THE THREE 
TO IN THE 



WORDS ASSOCIATED 
FOLLOWING WAYSl 



WITH AN ADDRESS P CAN BE REFERRED 



NAMECPl * NAMTABLCP,STR*P,STW] 
VAlUtP3 ■ VALTABLEP.STRfP.STW] 
I0CP3 « I0TABLCP.STR*P.STW3 IS 



IS THE NAME OF THE OBJECT 
IS THE VALUE OF THE OBJECT, 
THE I/O USE OF THE OBJECT 



* 



NORMALLY* THF FIRST FORM GIVEN (SINGLY 
DOUBLY-SUBSCRIPTED FORMS ARE USED ONLY 
HAVE BEEN CALCULATED SEPARATELY. 



SUBSCRIPTED) 
WHEN THE TWO 



is used; THE 

SUBSCRIPTS 



THE SYMBOL TABLE IS A SCATTERED-ENTRY, LINKEO-LIST TYPE OF TABLEt 
ENTRIES ARE SCATTERED INTO THE "SCATTER AREAS"* WHICH ARE WORDS 
SCATTERSIZE + 15 OF ROWS TO SCATTfRNO, THAT IS, THE I, J WORDS 
OF THE SYMBOL TABLE ( NAMTABLU * J 3 * VALTA8LCI*J3* I0TA8LEC I* J 3 ) 
ARE IN THE SCATTER AREA IF I 
< I < SCATTERNO 

< J S 5CATTERSIZE+15 
WORD 0*0 IS NOT INCLUDED; IT IS A "NON-CELL" WHICH SHOULD ALWAYS 
BE FILLED WITH ZEROES, THE REASON FOR THE "+15" IS THAT THERE 
ARE REALLY TwO SCATTER AREAS--ONE FOR LITERALS AND ONE FOR ALL 
OTHER TYPeS OF DATA ObJECTS, THIS IS TO KEEP THe LENGTH OF 
LISTS THAT MUST BE SCANNED AT RUN TIME (FOR INDIRECTION* CREATING 



TO 



• 

• 



new functions* etc,) as small as possible, 
into the cscattersize*scattersize*153 part 
co*scattersize) part is for other types of 
of the symbol table outside of the scatter 
as available space lists cone per row* the 
nextcellcr0w3), when several entries scatter into 
location* a linked list is formed into the part of 



LITERALS ARE SCATTERED 
OF EACH ROW* AND THE 

OBJECTS, THE PART 
AREAS IS INITIALIZED 

TOP AODRESS GIVEN BY 
THE SAME 
THE ROW THAT 



IS OUTSIDE THE 
THE LINK FIELD 



SCATTER AREA. LINKS THROUGH 
OF THE NAME PART (NAMECP3). 



THESE LISTS ARE IN 



m 
m 
m 



THE FOLLOWING FIELDS ARE USED IN A SYMBOL TABLE ENTRYl 
NAME(P3.TYPF IS THe TYPE OF THE ENTRY« 

* NAMED STRING OR TEMPORARY CELLt 

1 * LITERAL 

2 ■ FUNCTION 

3 * LABEL (CODE SEGMENT) 

NAMEtP] AND GARBAGE COLLECTOR* ( 3 t 1] IS USED BY CHECKSYMBTABL. 

NAMECP3.C4M J IS UNUSED. 

NAMECP3.LINK IS THE LINK TO THE NEXT ENTRY THAT HAD THE SAME 

LOCATION IN THE SCATTER AREA, A ZERO LINK IS END-OF-LIST, 

FOR TEMPORARY CELLS* THE LINK SHOULD BE ZERO. 
NAMECP3.L0C POINTS TO THE NAME OF THE OBJECT (IN 

FOR LITERALS* THIS FIELD IS ZERO. 
VALUCP3.C1I1] ■ 1 FOR PROGRAM-DEFINED FUNCTIONS* 

IT SHOULD BE ZERO. 
VALUtP3,C2M3 IS UNUSED, 
VALUtP3.lOUSE INDICATES THE I/O USE* AND HAS TWO SUBFIELDS! 



DATAC***3), 
OTHERWISE 



• 



2230000 
2240000 
2250000 
2260000 
2270000 
22*0000 
2290000 
2300000 

2310000 
2320000 
2330000 
2340000 
2350000 
2360000 
2370000 
2380000 
2390000 
2400000 
2410000 
2420000 
2430000 
2440000 
2450000 
2460000 
2470000 
2480000 
2490000 
2500000 
2510000 
2520000 
2530000 
2540000 
2550000 
2560000 
2570000 
2580000 
2590000 
2600000 
2610000 

2620000 
2630000 

2640000 
2650000 
2660000 
2670000 
2680000 
2690000 
2700000 
2710000 
2720000 
2730000 
2740000 
2750000 
2760000 
2770000 
2780000 
2790000 



X THREE ARRAYS AND ASSOCIATED MACROS* 



c 



DEFINE 

NAMEENAME13 » NAMT 
VALUfVALUU * VAIT 
I0EI013 « I0TABLC< 
STRMaX m 15 t* 
STWMAX * 255 #1 

ALPHA ARRAY 
NAMTABL* 

valtabl* 

I0TABLCOjSTrMAX>0I 

% 

X SOME MORE VARIABLES 

X 

DEFINE 

CCYCLE*E9*«<»*43#» 

CFlLN0*E5»4ft*43*» 

CINUSE«E3«4?*l3#» 

CI0TYPE«C14j45J33* 

CI0U5E»E3»46*23** 

CLINK»E5*36»123*j> 

CCNCSTR ■ £36*44*4 

C0UTuSE*EA«47»l3#* 

CYCLE a E9*43## 

FILNO-E5l43#* 

lNUSp«C3lU*# 

I0TYPE»Cl4t33#» 

% 

X 

X 

X " 

X 

X 

X 

X 

I0USE*C3»23## X 

UINKbC5«123#* X 

L0C»tl'7l3ll#* X 

0UTUSE*C4*13#* X 
OVFL*E13tl3#» X 
SCATTERSl2E*75#*X 

STR ■ 1 36*4 3 #, 
STW a E40*83 #> 
TCYCLE»t9*9i43##X 
TFILN0«E5*5*43#>X 
TYPE = £U23#* X 

X 
X 
BOOLEAN 

symbtablsetup; 
boolean array 

USEDSTtOjSTRMAx3; 
INTEGER 

SCATTERNOJ 
ALPHA ARRAY 

TEMPLISTC0ISTRMAX3 



ABLE(NAME1).STR, (NAMED, STW3 t» 
ABLEfVALU13.STR#CVALUl),STW3 ## 
I01).STR*(I013.STW3 #» 

X MAX FIRST SUBSCRIPT TO SYMB TABLE* 
X MAX SECONO SUBSCRIPT TO SYMB TABLE, 



STWMAX3S 
ASSOCIATED WITH THE SYMBOL TABLE ARE* 



X MOVE TO CYCLE FIELD 

X MOVE TO fILNO FIELD 
X 

» X MOVE TO IOTYPE FIELD 



X 
3 #* 
X 
X 
X 
X 
X 



MOVE TO LINK FIELD 



NUMBER TIMES FILE LOCATION USED 
INDEX OF ASSOCIATED FILE 
• 1 IF INPUT STRING 
TYPE OF I/O USAGE* 



m 

m 

m 



VALUE 

i 
2 
3 



INPUT 

ILLEGAL 

I/O 

LOOK 

TELETYPE 

ILLEGAL 

ILLEGAL 



OUTPUT 

ILLEGAL 

I/O 

TRACE 

TELETYPE 

ILLEGAL 

SYSPOT 



INUSE AND OUTUSE FIELDS COMBINED. 

LIST LINKS IN SYMBOL TABLE, 

S* R# W» AND C FIELDS (STRING LOC IN 0ATAC*>*3) 

■ 1 IF OUTPUT STRING 

* 1 IF OVERFLOW ALLOWED ON OUTPUT 

SIZE OF SCATTER AREAS IN SYMB TABLE, 



TRANSFER TO CYCLE FIELD 
TRANSFER TO FILNO FIELD 
TYPE OF ENTRY* 

= STRING 2 » FUNCTION 

1 * LITERAL 3 * LABEL 

% AVSLS SET UP IN SCATTER ROWS, 

X TRUE IF SYMB TABLE ROW IN USE, 

X MAX ROW INDEX QE SCATTER AREAS, 

t X TEMP S.T. LOCS FOR INTERPRETER, 



# 



€ 






3370000 
3380000 
3390000 
3400000 
3410000 
34^0000 
3430000 
3440000 
3450000 
3460000 
3470000 
3480000 
3490000 
3500000 
3510000 
3520000 
3530000 
3540000 
3550000 
3560000 

3570000 
3580000 
3590000 
3600000 
3610000 
3620000 
3630000 
3640000 
3650000 
3660000 
3670000 
3680000 
3690000 
3700000 
3710000 

3720000 
3730000 
3740000 
3750000 
3760000 
3770000 
3780000 
3790000 
3800000 
3810000 
3820000 
3830000 
3840000 
3850000 
3860000 
3870000 
3880000 
3890000 
3900000 
3910000 
3920000 
3930000 



vaiucpj.tnuse « 1 for input strings and functions with 

the calls being traced, 
valucpj.outuse * 1 for output strings* labels being traced* 

and functions with returns being traced. 
valucp3.link has several uses* oepenolng on the type of the object! 
stringsi the link field gives the next cell on the push-down 

stack! if zero* there is no push-down stack, 
intrinsic functions! the index for the case statement in 

the interpreter that branches to the function code, 
program-defined functionsj the symbol table location of 

the entry point, 
labelsi the reference count. It is bumped by one each time 

THE LABEL IS ENCOUNTEREO, 
VALUtPl.LOC IS THE LOCATIONS QF» 
STRINGSJ THE VALUE, 
LITERALS} DITTO, 
FUNCTIONS! (PROGRAM-DEFINED) A STRING OF 2-CHAR POINTERS TO 

THE SYMB TABLE LOCATIONS OF THE FORMAL PARAMETERS AND 

LOCAL VARIABLES, FOR INTRINSIC FUNCTIONS* THIS FIELD 

IS IGNORED, 

I0CP1,[U23 IS UNUSED, 

IOCPJ.IOUSE * VALUCPKIOUSE (REDUNDANT), 

IOfPj.FlLNO IS THE INDEX TO THE FILE ARRAYS FOR FILE I/O STRINGS, 

IOCP], CYCLE IS CURRENTLY NOT IN USE, 

IO(P].OVFL « 1 FOR OUTPUT STRINGS WHEN THE TAILS OF OUTPUT STRINGS 

TOO LONG FOR A RECORD ARE TO BE WRITTEN ON THE NEXT RECORD. 
NORMALLY * 0* WHICH CAUSES TRUNCATION OF LONG OUTPUT STRINGS, 






IOtPJ.IOTYPF IS THE 
VALUE 

1 
2 
3 
4 
5 
I0CP3 • C 17 J 31 3 IS UNUSED, 
%********LOCAL VARIABLES FOR 
BOOLEAN 



TYPE OF I/O 
INPUT 
ILLEGAL 
I/O 
LOOK 

TELETYPE 
ILLEGAL 
ILLEGAL 



OPERATION* 

OUTPUT 

ILLEGAL 

I/O 

TRACE 

TELETYPE 

ILLEGAL 
SYSPOT 



AS FOLLOWS! 



COMPILER*********************************** 



8UFFERFULL* X 

DCLIST* X 

GT* X 

GTLAST, X 

GTF* X 

GTS* X 

LSTF* X 

PCC* X 



BUFFERC*3 CONTAINS A CARO. 

LIST PROG ON TELETYPE. 

FALSE AT START OF COMPILE; TRUE WHEN GO-TO PART REACHED 

LAST INST HAD A GO-TO PART 

FAILURE EXIT HAS BEEN FOUND 

SUCCESS EXIT HAS BEEN FOUND 

LIST PROGRAM ON LINE PRINTER FILE PRINT 

LIST CONTROL CARDS* EVEN IF NOT LSTF 



PR06RAMFR0MPEM0TE* % PROGRAM FROM TELETYPE* NOT FILE PROGRAM 



PUNCHF) 

INTEGER 
ERRORS* 
FIELDSIZE* 
INSTNUM* 
INSTSIZE* 

MARKFR* 
MESSAGES, 

P* 

PTRJ 



X PUNCH NEW PROGRAM DECK 

X NUMBER OF SYNTAX ERRORS FOUND 

X NUMBER OF CHARS PER CARD THAT ARE INSTRUCTION 

X NUMBER OF INST BEING COMPILED 

X SIZE OF INST BEING COMPILED 

X FIRST CHAR (QMARK) OF INST IN C0DEC*3 

X NUMBER OF INFORMATIVE MESSAGES PRINTED 

X POINT IN INSTC*3 BEING COMPILED 

X NEXT CHAR IN C0OE[*3 



• 
• 
• 

m 



# 
# 



# 



m 



m 

m 



3940000 

3950000 

3960000 

3970000 

3980000 

3990000 

4000000 

4010000 

4020000 

4030000 

4040000 

4050000 

4060000 

4070000 

4080000 

4090000 

4100000 

4110000 

4120000 

4130000 

4140000 

4150000 

4160000 

4170000 

4180000 

4190000 

4200000 

4210000 

4220000 

4230000 

4240000 

4250000 

4260000 

4270000 

4280000 

4290000 

4300000 

4310000 

4320000 

4330000 

4 340000 

4350000 

4360000 

4370000 

4380000 

4390000 

4466000 

4410000 

4420000 

4430000 

4440000 

4450000 

4460000 

4470000 

4480000 

4490000 

4500000 



INTEGER ARRAY 

8ACKTRACKt0f50*0*S3# 

CHAfeTYPECOJ633; 
ALPHA 




i 
i 



* IS THE GLOBAL INTEGER SP. 
BOOLEAN ARRAY 

PNAMEtO»STACKSlZEl; 
INTEGER ARRAY 

PBACK* 

PMINLEFT, 

PPOInT* 



% TRUE FOR NAMED QUANTITIES 



PSIZE* 

PTYPECOSSTACKSIZEJj 
% 
% 
% 
% 
■ % 
% 
% 
% 
ALPHA ARRAY 
PLOC, 

psuojstacksizej; 



% 
% 
% 

% 
% 



link for back reference 
min size of rest of pattern 
pointer to matched substring 

SIZE OF PATTERN ELEMENT 

TYPE OF ELEMENT* AS FOLLOWS; 

Os UNDEFINED 

II CONSTANT PATTERN ELEMENT 

2J ARBITRARY STRING VARIABLE 

3: FIXED-LENGTH VARIABLE 

4« BALANCED VARIABLE 

5i BACK REFERENCE 

61 UNDEFINED 

7« NUMERIC VALUE-MN PSTCI3 

% SCANNER ONLYJ LOC OF VALUE OF ELEMENT 
% SYMBOL TABLE ADDRESS OF ELEMENT 




BOOLEAN 


% 


8ACKREFLA6* 


% 


noreplacement* 


% 


N0BACK0RBAL» 




SELFREFLAG* 


% 


SUCCESS* 


% 


varflagj 


% 


integer 


% 


count* 




ENTRY* 


% 


FLOC* 


% 


FR0NTEN0* 




INCREASE* 




INSTNO* 




INSTRUCT, 




MKS* 


% 


NEARPOINT* 




nextsourcerpcord* 


NOPATTERNS* 




noreplaces* 




rearend* 




REFI* 




REFJ, 





m 
* 



ENTRY POINT 4 LAST LABEL TRANSFERED TO 
POINTER TO FAILURE EXIT. 



"MARK STACK" POINTER 

% DISK ADDR OF NEXT AVAILABLE RECORD OF SOURCE, 



• 



c 



m 
m 






4510000 
4520000 
4530000 
4540000 
4550000 
4560000 

4570000 
4580000 
4590000 
4600000 
4610000 
4620000 
4630000 
4640000 
4650000 
4660000 
4670000 
4680000 
4690000 
4700000 
4710000 

4720000 
4730000 
4740000 
4750000 
4760000 
4770000 
4780000 
4790000 

4800000 
4810000 
4820000 
4830000 
4840000 
4850000 
4860000 
4870000 
4880000 
4890000 
4900000 
4910000 
4920000 
4930000 
4946060 
4950000 
4960000 
4970000 
4980000 
4990000 
5000000 
5010000 
5020000 
5030000 
5040000 
5050000 
5060000 
5070000 



REFLOC, 

REFPT* 

REFSTEP, 

RELATIVEPOlNTER, 

RPR, 

■RS.IZCf 

SIZE, 

SLOC, 

SPJ 
ALPHA 

temPref; 



% POINTER TO SUCCESS EXIT, 



tempref; 

%********LOCAl VARIABLES FOR INTERPRETER************************** 

X********FIlE-HANDLING declarations******************************* 

DFFtnf r'Ti'MA* '. 5 #t % MAX NUMBER OF FILES 



% EOF ON LAST I/O OPERATION, 
% TRUE FOR OPEN FILES. 

RECORD IS IN NEXTREC0RDCI,*3, 



X********FIl 
DEFINE FILM AX 
BOOLEAN ARRAY 

IOEOF, 

iofileopeN* - ,..„_ . „,. „. „., 

l0ckfc1»filmax];% next record is in nextrecordc i ,* 3 , 

% used with look-type input strings, 
integer array 

IOSIZE, 

IOSPACE, 

RECQRDtltFlLMAX]) 
ALPHA ARRAY 

iousagecuftlmaxi; 

FILE 

CARD (1,10,30); 
FILE IN 

PROGRAM (1,10,30); 

FILE OUT 

PRINTS** (1,17), 
PUNCH% (1,10); 

save file out 

newoisk disk serial [20*6003 
switch file iofile * 



****** 
****** 



(1,10, 30, save 15); 



card, 

CARD, 

PROGRAM, 

PRINT* 

PUNCH* 

newoisk; 



% — DUMMY ENTRY 

% CARD-IMAGE INPUT AND OUTPUT FILE 

% PROGRAM FILE FOR BATCH JOBS; READ FILE 

X LINE PRINTER FILE 

% CARD PUNCH FILE 
NEWDISK; % FILE FOR CREATING NEW DISK FILES 
***** ****F I LE "HANDLING DECLARATIONS****************************** 
X********SWITCH FOR MAT MESSAGE*********************************** 
SWITCH FORMAT MESSAGE * ( M **MISSING 0UOTE,"), 
(//«**IGN0RF ANY OUTPUT AFTER THIS— IT MAY BE INCORRECT,"//), 
("♦♦UNRFCOGNlZFO CONSTRUCT IN STRING REFERENCE,"), 
("♦♦UNIDENTIFIABLE PUNCHED OBJECT,"), 
("**OOUBLY DEFINED EXIT."), 

("**CHARACTER AFTER S OR F IN GO-TO NOT (."), 
("**STRING REFERENCE MISSING."), 
("♦♦UNRECOGNIZED GO»TO CONSTRUCT,"), 

("♦♦ILLEGAL LABEL IN GO-TO PART,"), 

("♦♦ILLEGAL COMMA,"), 

("♦♦PARENTHESIS COUNT NON-ZERO AT START OF GO-TO PART,"), 

("♦♦THE ONLY UNARY OPERATOR IS «,""","•«,""«,",»), 

("**EXTRA RIGHT PARENTHESIS,"), 

("♦♦EXTRA ARROW OR EQUAL SIGN."), 



******* 

******* 

*00 
X01 
X02 
X03 
%04 
X05 
X06 
*07 

X08 
%09 

XlO 

111 
X12 
X13 



c 

i 



f 

« 
f 
c 

m 
m 




m 
m 



• 









5060000 
5090000 
5100000 
5110000 
5120000 
5130000 
5140000 
5150000 
5160000 
5170000 
5180000 
5190000 
5200000 
5210000 
5220000 
5230000 
5240000 
5250000 
5260000 
5270000 
5280000 
5290000 
5300000 
5310000 
5320000 
5330000 
5340000 
5350000 
5360000 
5370000 
5380000 
5390000 
5400000 
5410000 
5420000 
5430000 
5440000 
5450000 
5460000 
5470000 
5480000 
5490000 
5500000 
5510000 

5520000 
5530000 
5540000 
5550000 
5560000 
5570000 
5580000 

5590000 
5600000 

5610000 
5620000 
5630000 
5640000 



"♦♦strange usf or «*""«* "/«*-"-*",")* 

"♦♦ATTEMPTED REPLACEMENT IN VALUE EXPRESSION.")* 
"♦♦IMPROPER ARITHMETIC OPERAND.")* 

••••ERROR IN USE OF ARITHMETIC OPERATOR.")* 

"♦♦PARENTHESIS COUNT AT END OF INSTRUCTION NON-ZERO.")* 

"♦♦CONTROL PARAMETER NON-NUMERIC OR OUTSIDE ALLOWED RANGE.")* 

/"•♦DUMMY FMT--MESSAGEC203")* 

-♦♦TOO MANY ELEMENTS IN INSTRUCTION")* 

"♦♦UNRECOGNIZED INSTRUCTION TYPE.")* 

/"♦♦DUMMY FMT— MESSAGEE23]")* 

"'♦THIS LABEL HAS ALREADY BEEN USED* FORMER VALUE LOST,")* 

/"♦♦NO END CARD."/)* 

"♦♦ENTRY POINT UNDEFINED.")* 

"♦♦MISSING RIGHT PARENTHESIS,")* 

"♦♦ILLEGAL USf Of LITERAL,")* 

"♦♦MISSING OPfRAND TO ARITHMETIC"), 

/"♦♦DUMMY f'MT— MESSAQEC303")* 

/"♦♦DUMMY FMT— MESSAGE! 31 3" ) * 

"♦♦DEFINE FAILURE—UNKNOWN ERROR IN FIRST ARGUMENT.")* 

-♦♦DEFINE FAILURE—UNKNOWN ERROR IN LOCAL VARIABLE LIST,")* 

"♦♦INVALID ARGUMENT FOR INDIRECTION.")* 

"USEDROW["*I2»"3 IS "*L5*", DPNTRJ"* I2*"3 * "*I5)* 

XI &»"♦"* 10 CX«*"*"»X4, "♦-))* 

"DATAC"*I2,"3 a ")* 

"♦♦MISSING STRING VARIABLE ASTERISK,")* 

-♦♦MISSING PARAMETER,")* 

///"♦♦COMPILER SCREWED UP,"///)* 

/"♦*DATA COMMUNICATIONS FILE IN USE'*"/)* 

-♦♦PROGRAM SEGMENT TOO LONG— INSERT EXTRA LABEL ON PRECEDING" 

" INSTRUCTION,")* 
"♦♦END OF Flip.")* 
"♦♦PARITY ERROR IN ")* 

/"♦♦OUT OF SPACE IN STRING STORAGE AREA,")* 
/"♦♦OUT OF SPACE IN SYMBOL TABLE.-)* 
"♦♦ILLEGAL USf OF ARROW OR EQUAL SIGN,-)* 
"♦♦NON-NUMERIC LITERAL IN ARITHMETIC")* 
"♦♦THIS STATEMENT CAN NOT BE REACHED.")* 
"♦♦UNDEFINED LABEL* ")* 
//"♦♦RETURN FROM FUNCTION NOT PRECEDED BY CALL* STATEMENT "* 

"NUMBER "*I6)* 
"♦♦ILLEGAL NAME FOR STRING VARIABLE,")* 
"♦♦END FORMAT— MESSAGE.")* 



♦ ♦END FORMAT — MESSAGE.")* 

****** ♦SWITCH FORMAT MESSAGE**************************** ♦♦♦♦*♦♦♦ 

**♦♦♦#* SWITCH FORM At FTl ME ♦♦♦♦♦♦♦♦♦♦♦*♦♦♦♦♦*♦*♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 

fTCU pHDUaT e>TTUr * 



%♦ 

%* 

SWITCH FORMAT PTIME * 

" ■•' -*— "*FlO,i* 

S N 



" SEC, "/"I/O TIME 
8 L 3 S 



"*F10.1*" SEC,")* 
S T E M"// 



(/"CPU TIME * 
(X25»"B 5 5 5 

"VERSION "*F3,1/ 

"THE DATE IS "*!♦*" "»A3*" 19%A2*/ 

"COMPILATION STARTED AT "»2( 12*" J" )* 12 )* 
(/"COMPILATION COMPLETED AT "*2( 12* "« " ) * 12 ) * 

(/"EXECUTION STARTED AT "*2C I 2* " »" ) * 12) * 

(/"NORMAL EXIT AT "*2( 12*" t "3 * 12*"* AT LEVEL "*I**" IN STATEMENT «j 

I*)» 
(/"ABNORMAL EXIT AT "*2( 12* " J " )* 12* "* AT LEVEL "*!♦*" IN STATEMENT 

I*)* 

(//"♦♦END FORMAT— FTlME,"//)/ 



X14 
%15 
%16 

X17 
*18 
X19 
120 
X21 
X22 
X23 
X24 
X25 
«26 
X27 
X28 
X29 
X30 
X31 
X32 
X33 
X34 
X35 
X36 
X37 
■ X38 
X39 

X40 
X41 

X42 

X44 
X45 
X46 
X47 
X48 
X49 
X50 

X51 
X52 

****** 
****** 

xoo 



xoi 

X02 
X03 

X04 

X05 



m 



m 
• 



• 
m 



€ 



• 



• 
• 
• 
# 



• 



5650000 

5660000 

5670000 

5680000 

5690000 

5700000 

5710000 

5720000 

5730000 

5740000 

5750000 

5760000 

5770000 

5780000 

5790000 

5800000 

5810000 

5820000 

5830000 

5840000 

5850000 

5860000 

5870000 

5880000 

5890000 

5900000 

5910000 

5920000 

5930000 

5940000 

5950000 

5960000 

5970000 

5980000 

5990000 

6000000 

6010000 

6020000 

6030000 

6040000 

6050000 

6060000 

6070000 
6080000 
6090000 
6100000 
6110000 
6120000 
6130000 
6140000 
6150000 
6160000 
6170000 
6180000 
6190000 
6200000 
6210000 



******** *SWlTCH FORMAT TT\Ht*** **************** ****** ******************* 
%*********************************************************************** 
X** ****** VARIOUS FORMATS************************************************ 
FORMAT % NOT GENERALLY USED BY MOST PROGRAMS: 
F80A1 (80A15* 

FCLQSEDR C***ATTEMPT TO READ FROM CLOSED FILE«"), 
FCLOSEOW C"**ATT£MPT TO WRITE ON CLOSED FILEt"), 
FCRLF C"S/*")* 

FENDPROG C"**END OF PROGRAM FILE "), 
FFIXVARSIZE ("**IUEGAL SIZE ",""",X*,"""," FOR FIXED-LENGTH ", 

"VARIABLE IN STATEMENT ",I6), 
FGC f//«**GARBAGE COLLECTOR "* IOC M ******** M > 3 , 
FGCRES (/"**GARBAGE COLLECTOR RESULTS**/ 

I5* M ROWS COLLECTED"/ 

I3»" CHARS IN LONGEST ROW"/ 

l5»" CHARS TOTAL"/), 
F6CS (/"GARBAGE COLLECTOR CALLED ",I*," TIMES) USED ",F*.t, 

" SEC CPU TIME* ",F*,l," SEC I/O TIME,")* 
FNOFILE ("**FILE NOT AVAILABLE,"), 
FO <0)* 

FPARlTY ("**IRRECOVERABLE PARITY ERROR ON"), 
FRULES ("**NUMBER OF RULES EXECUTED * ",I8), 
FSENDCOPY C"**SENO COPY OF PROGRAM TO SYSTEM AUTHORS,"), 
FTRACE C"*S",I5,Xl,X**" * «,""*), 
FTRACEFCTCALL C"*C", 15, XI * X*,"(" )* 
FTRACEFCTRET ("*R w ,I5*X1,X*,"<) a ",«"»), 
FTRACEL ( W *L ",X*, !*,*(" FROM ",I*)), 
FUNDEFFCT C"**UNDEFINED FUNCTION CALLEDi"), 
FUNDEELABEL C"**ATTEMPTED TRANSFER TO UNDEFINED LABEL ")# 
FORMAT % FOR USE WITH CREATELlBRARY AND LOADLIBRARY, 
FLIBOC w SNOBOL LIBRARY FILE ",ID, 
FLIB1 (M,l4,3<Li'0)), 
FLIB2 CA2,16L1#I6), 
FLIB3 (16A2), 
FLIB4 (60)* 
FLIB5 (32L1)* 
FLIB6 C12I4), 

FLlBOLDLPt M **LlBRARY FILE INCOMPATIBLE WITH THIS VERSION OF SNOBOL"), 
FLIBQLDTT("!S*LIBRARY FILE INCOMPATIBLE WITH THIS VERSION OF SNOBOL"* 

"<**"); 

FORMAT % USED DURING MOST RUNS* 
FASTERISKS </1023<"********")), 

FBL (CX8))* 
EOBL C*C/)), 

FERRS CI**" SYNTAX ERRORS DETECTED"), 
FI7 CI7), 
PI 16 (116), 
FINT (*D,X*,I*), 
FNUM CX*«I*)J 
FORMAT * USED W|TH TELETYPES 
FAGATN ("S*TRY AGAINS/*"), 
FDKSEARCH (X*»"/"*X*,"I",3I1,4("J",I*)), 
TEH ("S*EH",A1, "***"), 

FFROMREMQTE ("S/DO YOU WANT TO TYPE A PROGRAM", At ,"$**"), 
FNOINPUT ("^WAITING TIME UP-"DO YOU WISH TO CONTINUE"* Al, «$/*"), 
FSTAT (*("(», 2(1**"/", I*, "l"), 811* ")")), 
FTTADDR fl*, "/"*!*), 



i 

t 
€ 

m 



• 

• 



• 
# 



€ 



m 
m 
m 
m 



6220000 
6230000 
6240000 
6230000 
6260000 
6270000 
6280000 
6290000 
6300000 
6310000 
6320000 
6330000 
6340000 
6330000 
6360000 
6370000 
6 380000 
6390000 
6400000 
6410000 
6420000 
6430000 
6440000 
6450000 
6460000 
6470000 
6480000 
6490000 
6500000 
6510000 

6520000 
6530000 
6540000 
6550000 
6560000 
6570000 
6580000 
6590000 
6600000 

6610000 
6620000 
6630000 
6640000 
6650000 
6660000 
6670000 
6680660 
6690000 
6700000 
6710060 
6720000 
6730000 
6740000 
6750000 
6760000 
6770000 
6780000 



FTTHELLQ C m S*SN0B0l VERSION "*F3 f 1, "£><♦■" 
FYESORNO <*<*TYPE YES OR NO.S**")# 

fvcrlf ex**"*/*"); 

FORMAT X USED WITH DUMP PROCEDURES 
FSTACKHEAO C/ M **THE STACK IS»V 

» WORO TYPE ST NAME ,,..lC)C.... SIZE 

FSTACKENTRY CI6#I4*X2*A2,X3*U1*X1#I4,X1# 

X****************************************** 

X ***************************************** 

%========== BEGIN DATA COM GLOBAL DECLARATI 

DEFINE ■'■■''■'■ 

OCINCHAR »2S## 

NBUFlN *4** 

BUFINSIZE *5#> 

DCOUTCHAR *?8#> 

NBUFOUT =5#. 

BUF0UTS1ZE *5#t 

MSGSlZE * 250 #» 

ANSSlZE m 250 #» % MAX # OF CHARS 

TTMAX ■ 15 *) X MAX # OF TELETY 

ALPHA ARRAY 

0CREADC0l(MSGSIZE"l).W3, 

DCWRITEC0»£ANSSIZE-1),W3, 

ID. X X. D. OF USER OF 

STATCOJTTMAXJJ X STATUS OF TELETYP 
ALPHA FILE IN DCI'N 14 ( NBUFlN* BUFINSIZE 
DCOUT 14 (NBUFOUT'BUFQUTSIZE 



)* 



POINT MINLEFT BACK"), 
I2#X1»U#I5M6#X8*I5>* 

***************************** 
***************************** 

ONS r:====sss=ssss==s:ss==:is 



i 
• 



IN OUTPUT 
PES ALLOW 



STRING* 
ED. 



« 
* 

* 



% TELETYPE CURRENTLY IN CHAR 
% NUMBER OF TELETYPES ATTACH 
% TELETYPE CURRENTLY BEING T 



ALPHA FILE OUT 
INTEGER 

mainuser/ 
numusers* 

user; 

REAL 

waittime1 
boolean break; 

«««««:«: end data com global declaration 
begin x global stream procedures 
x********absaddr*************************** 
integer stream proceoure absaddr(a); 
begin si ♦• a; absaoor ♦■ si; end; 

X********A8SADDR*************************** 
X****************************************** 

comment char returns the pth character of n 
Integer stream procedure charcname*p>; 
value p; 

X 

X 

BEGIN Si * namf; 

si * SI + PI 

oi «■ loc char; oi * oi ♦ 7; 

os * i chr; 

end; 

x****************************************** 

X********FQ******************************** 

BOOLEAN STREAM PROCEDURE EQ(N#L1* Il#L2* 12 >J 

VALUE N, II, i?; 

BEGIN SI * LH SI * Si ♦ in 

01 * L2I DI * 01 «■ 12; 



TELETYPE 
E 

); 
); 

GE 
ED. 

ALKED TO 



S :sr::::S!s:s:«s!:::s:s:::s8 



********* 



******************** 



€ 
• 



******************** 
******************** 



********* 
********* 
AME, RIGHT JUSTIFIED; 



**************************** 
***************************** 







• 
• 



6790000 
6800000 
6810000 
6820000 
6830000 
6840000 
6850000 
6860000 
6870000 
6880000 
6890000 
6900000 
6910000 
6920000 
6930000 
6940000 
6950000 
6960000 

6970500 
6980000 

6990000 
7000000 
7010000 

7030000 
7030000 
7040000 
7050000 
7060000 
7070000 
7080000 
7090000 
7100000 
7110000 
7120000 
7130000 
7140000 
7150000 
7160000 
7170000 
7180000 
7190000 
7200000 
7210000 
7220000 
7230000 
7240000 
7250000 
7260000 
7270000 
7280000 
7290000 
7300000 
7310000 
7320000 
7330000 
7340000 
7350000 



nc if 1 sc x dc 
if toggle then 

eq * tally; 

end eq; 



THEN JUMP 
TALLY «- 



OUT); 

ELSE TALLY * 1J 



%********£0***************** #******************************* ************ 

X* ******* EQUAL ************************** ********************************* 

X EQUAL RETURNS TRUE IF THE N CHARS STARTING AT THE UTH CHAR AFTER Ll 

X ARE THE SAME AS THE N CHARS STARTING AT THE L2TH CHAR AFTER L2. I 1 

X AND 12 MUST BE S AND S 63. 

BOOLEAN STREAM PROCEDURE EQUAL CN#U# 1 1*L2. 12 ) ; 

VALUE N* II* I?; 

X 

X 

BEGIN LOCAL NA, NB; 

LABEL L; 

n; si * si ♦ s; 

na; di «• di + 7; 

* DI ♦ 7; 



SI 

01 

DI 

SI 

si 

DI 
DI 



DS 
OS 



chr; 
chr; 



OUT 3 TO L)))l 

2 to dj; 



LOC 

* LOC 

* loc nb; 01 

> li; 

* si * iii 

* L2; 

* DI + 121 
NAC16C32UF 8 SC t DC THEN JUMP 

NB(8CIF 8 SC * DC THEN JUMP OUT 

NCIF 1 SC * DC THEN JUMP OUT); 

L» IF TOGGLE THEN TALLY * ELSE TALLY * U 

EQUAL * TALLY? 

end; 

X********EQllAL********************************************************** 

BEGIN X MOVE STREAM PROCEDURES 

J>********MV************************************************* ************* 

STREAM PROCEDURE MVCN.L1 » I l*L2* 12)1 

VALUE N, II. 1?; 

BEGIN Si ♦ Lll SI * Si * in 

Di * L2; di * ni ♦ 12; 
ds * n chr; 

END MVI 

%***** ***MV** ************************** ********************************* 

X******** MOVE************* **************************************** ****** 

STREAM PROCEDURE MOVEf N» SOURCE* I WDEST* 12) I 

X 

VALUE N» II, I?; 

BEGIN LOCAL NA, NB; 

Si * LOC NI SI * SI + 5; 

DI * LOC na; DT * DI + 7; 

01 * loc nb; 01 * DI * 7; 

si * source; 

si ♦ si + n; 

di * dest; 

DI * DI ♦ 121 
NA(4(32(0S * 3? CHR))); 
NB(2(DS * 32 CHR))I 

DS * n chr; 
end movf; 



€ 

i 
i 
f 
i 
1 



m 
m 



DS 
DS 



chr; 
chr; 



end movf; 

********* MOVE* ********************************************************** 
X********MOVEWnS******************************************************** 
STRFAM PROCFDURF MQVEWDStN.Ll.L2); VALtJF NS 



• 



m 



• 
• 



# 



7360000 
7370000 
7380000 
7390000 
7400000 

7410000 
7420000 
7430000 
7440000 
7450000 
7460000 
7470000 
7480000 
7490000 
7500000 
7510000 

7520000 
7530000 
7540000 
7550000 
7560000 
7570000 
7580000 
7590000 
7600000 
7610000 
7620000 
7630000 
7640000 
7650000 
7660000 
7670000 
7680000 
7690000 
7700000 
7710000 
7720000 
7730000 
7740000 
7750000 
7760000 
7770000 
7780000 
7790000 
7800000 
7810000 
7820000 
7830000 
7840000 
7850000 
7860000 
7870000 
7880000 
7890000 
7900000 
7910000 

7920000 



BEGIN LOCAL NA; 

SI * LOC NJ SI * SI + 6; 

DI * LOC NA! OT * DI + 71 DS «■ 1 

SI «• LI) DI * L2J 

NAC2CDS * 32 WoS)>l N(DS «• 1 WDS 

END MOVEWDS) 

X********MOVEWnS**************** 
X*****#**MQVjrWORD*************** 
STREAM PROCEDURE MOVEWORDt A,B ) I 
BEGIN SI «• _AI DI *> Bl OS * 1 WDS 
****** ***MOVEWORD***** ********** 
BEGIN S SCAN STREAM PROCEDURES 
********* scanchar* ************** 
* scanchar returns the number of 
% £0 < i s 63) to the first occu 
integer stream procedure scancha 
begin local Pi* P2# P3» temp; 

LABEL CHERCHE#TROUVEI 

si * it si ■;■* st ♦ i; 

DI ♦ LOC CH DT «* DI * 7! 
CHERCMEs IF 1 SC * DC THEN GO TO 
TEMP * Oil DI * LOC C2I 
DI * 01 + 7; SI ♦ SI • i; 

SC f DC THEN GO TO TROUV 
TEMPI 



chr; 



- li 

TALLY 



IF 1 

DI «■ 
DI * DI 
TALLY * 

TEMP ♦ SII 

P3 * tally; 

IF SC * "0* 

BEGIN SI 
TALLY * P2J 
P3 * TALLY! 
IF SC * M 0" 

BEGIN TALLY * 

SI * TEMPI 60 

ENOI 
TALLY *" Pll TALLY 

pi «• tally; tally 
si * temp; 
go to cherche; 

TROUVEt 

LOC 
LOC 
LOC 
LOC 



) 



**************************************** 
**************************************** 

VALUE A, B; 

i end; 

**************************************** 

**************************************** 

CHARS FROM THE ITH CHAR AFTER L 
RRENCE OF EITHER CI OR C2. 
R(Cl#C2,L#I)l VALUE Ci#C2#I! 



trouve; 



El 



• 



+ li 

LOC P3I SI <■ SI 



SI «• 

THEN 

♦ temp; go to cherch 

TALLY * TALLY ♦ i; 
SI * LOC P2; SI «• SI 
THFN 



+ 7; 
e; end; 

■ ♦ 7; 



0; 

TO 



cherche; 

TALLY ♦ l; 

0; 



m 



01 * 
SI ♦ 
SI * 

SI * 



SCANCHAR! DI * DI ♦ 

pi; si ♦ si ♦ 7; os 
P2; SI * si + 7; DS 
P3; si ♦ si + 7; DS 

End scanchar; 

x********scanChar*************** 
x********sktpchar*************** 
integer stream procedure skipcha 
x 

BEGIN LOCAL Pit *2* ?3> TEMP! 

LABEL CHERCHE#TROUVE! 

SI * L! SI * ST + II 

DI ♦ LOC CI DI *■ DI ♦ 7! 

CHERCHEt IF 1 SC * DC THEN GO TO 

DI * DI - 11 



51 



i Chr; 
1 chr; 
i chr; 



**************************************** 
**************************************** 
RCC,L>I)I VALUE c,i; 



TROUVE! 



• 
• 



• 






7930000 
7940000 
7950000 
7960000 
7970000 
7980000 
7990000 
8000000 
8010000 
8020000 
8030000 
8040000 
8050000 
8060000 
8070000 
8080000 
8090000 
8100000 
8110000 
8120000 
8130000 
8140000 
8150000 
8160000 
8170000 
8180000 
8190000 
8200000 
8210000 
8220000 
8230000 
8240000 
8250000 

8260000 
8270000 
8280000 
8290000 
8300000 
8310000 
8320000 
8330000 
8340000 
8350000 
8360000 

8370000 
8380000 
8390000 
8400000 
8410000 

8420000 
8430000 
8440000 
8450000 
8460000 
8470000 
8480000 
8490000 



TALLY * 

TEMP * si; 

P3 * TALLY! 
IF SC t M M 

BEGIN SI 
TALLY * P2J 

P2 > tally; 

IF SC t M W THEN 
BEGIN TALLY *■ 

SI * temp; fiO 

end; 

TALLY ♦ Pi; TALLY 
Pi * TALLY; TALLY 

si * temp; 
go to cherche; 

TROUVEf 

01 ♦ LOC 

SI * LOC 

SI * LOC 

SI * LOC 



TALLY * i; 

LOC P3; SI 



si * loc P3; si «• si + 7; 

THFN 

* temp; go to cherche; end; 

TALLY «■ TALLY ♦ II 

SI * LOC P2I SI * SI ♦ 71 



o; 
to 

♦ 



cherche; 

tally ♦ 
o; 



i; 



SKIPCHAR! DI * DI * 

Pi; si * si + 7; os 
P2| SI * si ♦ 7; OS 
P3| SI * SI + 7; OS 



5; 

* 1 

* 1 

*■ 1 



CHRI 

CHR; 

CHRj 



end skipchar; 



%********SKIPChAR**************** *************************************** 
*********************************************************************** 

("ADPi-rVDr Dr«iiSkit A kinMDrs TnPMTrpVfiio <r u c Tver ntr 



caroty 
being 
1 

3 

4 

5 
6 

integer s 
begin si 

IE SC * " 

SC ■ - 

SC « w 
SC » * 

sc ■■» w 

BEGIN 
IT SC 

Ieg 

IF 



PE RETURNS A NUMBER IDENTIFYING THE TYPE OF INSTRUCTION 

COMPILED — THE TYPES ARE* 

COMMENT 

CONTINUATION 

CONTROL CARD 

END 

UNLABELED 

LABELED 

tream procedure cardtypec card); 
* card; 



C 

€ 

m 
c 

m 
m 
m 



IF 
IF 
IF 

IF 



*« THEN TALLY <• 

%« THpN TALLY «■ 

," THEN TALLY <• 

••» THpN TALLY *■ 
E w THEN 

SI «• SI ♦ u 
« "N" THEN 

in si * si * i; 

SC m "0* THIN 
BEGIN Si * Si + i; 



1 ELSE 

1 ELSE 

2 ELSE 

3 ELSE 



• 
• 



IF SC * 



THEN TALLY «• 4 ELSE TALLY * 6! 



END 
END EL 
IF SC » " 
CARDTYPE 

end type; 

X******** 

BEGIN 
%******** 

PROCEDURE 
VALUE 
ALPHA 
FORWAR 



END ELSE TALLY * 6; 

ELSE TALLY * 6; 
SE 

" then tally * 5 else tally * 
♦ tally; 



6! 



CARD TYPE*** 4 ******** ******************************************* 

% ALGOL PROCEDURES 

FORWARD DECLARATIONS******************************************* 

CLEAR(AR*N); 
Nl INTEGER n; 

array arcoji 
d; 



# 



• 



• 

• 



• 

• 



8500000 BOOLEAN PROCEDURE COMBINEARITHMETICC 1)1 
8510000 VALUE i; 
8520000 INTEGER ti 

8530000 forward; 

8540000 procedure combinefunctionc mks ) j 

8550000 value mks; 

8560000 integer mks; 

8570000 forward; 

8580000 BOOLEAN PROCEDURE COMB INEGOTOPARTCMKS ) ; 

8590000 VALUE MK5I 

8600000 integer mks; 

8610000 forward; 

8620000 BOOLEAN PROCEDURE CQMfi INEGROUP(MKS*CON) ; 

8630000 VALUE MKSt CON; 

8640000 integer mksj 

8650000 boolean con} 

8660000 forward; 

8670000 boolean procedure combineinoirect ionc mks> ; 

8680000 value mks; 

8690000 integer mks; 

8700000 forward; 

8710000 boolean procedure cqmbinestrvarnamec mks ) ; 

8720000 value mks; 

8730000 integer mks; 

8740000 forward; 

8750000 procedure compilec inst )l 

8760000 alpha array insteoj; 

8770000 forward; 

8780000 INTEGER PROCEDURE CQNTR6lPARAMETER< A>P) I 
8790000 ALPHA ARRAY At0]l 

8800000 integer pi 
8810060 forward; 
8820000 procedure convfrt(a); 
8830000 alpha array ac03i 
8840000 forward; 
8850000 alpha procedure date; 
8860000 forward; 
8870000 procedure de§u6cl)i 

8880000 VALUE L; 
8890000 LABEL L; 
8900000 FORWARD; 

89ioooo integer procedure digitscn); 

8920000 VALUE N; 
8930000 REAL N; 

8940000 forward; 

8950000 alpha procedure enterstcn, l,p,x )l 

8960000 value' n# P* x; 

8970000 INTEGER N* PI 
8980000 ALPHA ARRAY LCOJI 
8990000 ALPHA X; 

9000000 forward; 

9010000 PROCEDURE FlNOuSERSI 

9020000 forward; 

9030000 procedure garbagecollector; 

9040000 forward; 

9o5oooo procedure indirectcsp); 

9060000 VALUE SP; 



• 
• 

m 



m 
m 
m 
m 

« 







m 



m 

m 



9070000 INTEGER SP) 

9080000 FORWARD) 

9090000 PROCEDURE INFORMOU)* 

9100000 VALUE I) 

9110000 INTEGER I) 

9120000 FORWARD) 

9130000 PROCEDURE INFORMAC I#P )) 

9140000 VALUE l> P) 

9150000 INTEGER I) ALPHA P; 

9160000 FORWARD) 

9170000 PROCEDURE INFORMI ( I #P ) ) 

9180000 VALUE I* P) 

9190000 INTEGER I* P) 

9200000 FORWARD) 

9210000 PROCEDURE INFORMI A( X«P1»P2)J 

9220000 VALUE I* Pl» P2) 

9230000 INTEGER !» PI) 

9240000 ALPHA P2) 

9250000 FORWARD) 

9260000 PROCEDURE INFORMI I C I*P1,P2) ) 

9270000 VALUE I# PI* P2) 

9280000 INTEGER J> PI* P2) 

9290000 FORWARD) 

9300000 PROCEDURE INITI ALIZESYMBTABL) 

9310000 FORWARD) 

9320000 BOOLEAN PROCEDURE INPUT) 

9330000 FORWARD) 

9340000 PROCEDURE INSERTSTRINGCONVERT(SP)) 

9350000 VALUE SP) 

9360000 INTEGER SP) 

9370000 FORWARD) 

9380000 PROCEDURE INTERPRETER) 

9390000 FORWARD) 

9400000 INTEGER PROCEDURE INTRINSICCL'P'S )) 

9410000 VALUE P» S) 

9420000 ALPHA ARRAY LC01) 

9430000 INTEGER P» S) 

9440000 FORWARD) 

9450000 PROCEDURE LOAOERCF)) 

9460000 FILE F) 

9470000 FORWARO) 

9480000 PROCEDURE LST(A)) 

9490000 ALPHA ARRAY AC03) 

9500000 FORWARD) 

9510000 PROCEDURE MESSAGEOU)) 

9520Q00 VALUE I) 

9530000 INTEGER I) 

9540000 FORWARD) 

9550000 PROCEDURE MESS AGE A I ( I*P1#P2 ) ) 

9560000 VALUE l> Pl» P2) 

9570000 INTEGER I* P2) 

9580000 ALPHA PI) 

9590000 FORWARD) 

9600000 PROCEDURE MESSAGEI C I *P )) 

9610000 VALUE 1* P) 

9620000 INTEGER I* P) 

9630000 FORWARD) 



i 



« 
t 
c 



• 



m 
m 



• 
• 



• 



9640000 PROCEDURE MFSSAGETTOC I ) } 

9650000 VALUE l> 

9660000 INTEGER II 

9670000 FORWARD; 

9680000 PROCEDURE MESSaGETTAC I*Pi ); 

9690000 VALUE l» Pll 
9700000 INTEGER I) 

9710000 ALPHA P1J 

9720000 forward; 

9730000 PROCEDURE MESSaGETTAI C I * Pi *P2 ) ; 

9740000 VALUE I» Pit P2J 

9750000 INTEGER I* P2^ 

9760000 ALPHA P1J 

9770000 FORWARD; 

97|0000 PROCEDURE MESSaGETT I < I ,P ) ; 

9790000 VALUF I* p * 

9800000 INTEGER I» Pi 

9810000 forward; 

9820000 integer procedure mnemnocn* a*p); 

9830000 VALUE N; 
9840000 INTEGER N* PJ 
9850000 ARRAY At03 ^ 

9860000 forward; 

9870000 alpha procedurf newcet_l<i>; 

9880000 VALUE I* 

9890000 INTEGER U 

9900000 forward; 

9910000 PROCEDURE NEWSTROWCI); 

9920000 VALUE I J 

9930000 INTEGER U 

9940000 forward; 

9950000 BOOLEAN PROCEDURE NULLARGSCNH 

9960000 VALUE NJ 

9970000 INTEGER NJ 

9980000 forward; 

9990000 BOOLEAN PROCEDURE NUMVALC ST# VAL ) ' 
10000000 VALUE st; 

lOOioooo alpha st; 

10020000 INTEGER VALJ 

10030000 forward; 

10040000 BOOLEAN PROCEDURE OUTPUT; 

10050000 FORWARD; 

10060000 BOOLEAN PROCEDURE PQP(STLOC); 

10070000 VALUE stloc; 

10080000 alpha stloc; 
10090000 forward; 

lOlOOOOO PROCEDURE PROCESSCONTROLCARDC A >; 

10110000 alpha array ac03; 

10120000 forward; 

10130000 boolean procedure push(s#t); 

10140000 VALUE $» Tt ALPHA S# T; 

10150000 forward; 

10160000 procedure returncell<l )i 
10170000 value l; alpha u 
lOieoooo forward; 

10190000 PROCEDURE RfTURNTEMPSJ 

10200000 forward; 



« 



m 

m 
m 
m 
t 
m 
m 

€ 
C 

* 



■m 
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m 

m 

m 
$ 

m 

m 
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10210000 ALPHA PROCEDURE SCATTERCSIZE#LOC'P#X ) ; 

10220000 VALUE SIZE* P» X; 

10230000 INTEGER SIZE* P; 

10240000 ALPHA ARRAY L0CC03J 

10250000 ALPHA Xj 

10260000 forward; 

10270000 ALPHA PROCEDURE SEARCH5T(N#L»P#X ) I 

10280000 VALUE N# P# XI 

10290000 INTEGER N» Pi 

10300000 ALPHA ARRAY LE031 

10310000 ALPHA X) 

10320000 forward; 

10330000 boolean procedure snbldefinec stl*st2* st3) ; 

10340000 VALUE ST1* ST2# ST3; 
10350000 ALPHA STl* ST2* 5T3; 

10360000 forward; 

10370000 boolean procedure snblin(st); 

10380000 value stj 

10390000 ALPHA ST; 

10400000 forward; 

10410000 boolean procedure snbloutcst)! 

10420000 VALUE ST; 
10430000 ALPHA ST; 

10440000 forward; 

10450000 PROCEDURE STORFCHARS(N#L* I) ; 

10460000 VALUE N, IJ 

10470000 INTEGER N* !l 

1Q480000 ALPHA L; 

10490000 forward; 

10500000 alpha procedure str ingcnf stloc ); 

10510000 value n* stloc; 

10520000 integer nl alpha stloc; 

10530000 forward; 

10540000 procedure strlngdumpcn ) ; 

10550000 VALUE NJ 

10560000 INTEGER Nl 

10570000 FORWARO; 

10580000 PROCEDURE SYNTAXERRCN,P ); 

10590000 VALUE N» PI 

10600000 INTEGER N» Pi 

10610000 forward; 

10620000 alpha procedure tempcell; 

10630000 forward; 

10640000 ALPHA PROCEDURE TEMPVAL(I); 

10650000 VALUE II 

10660000 INTEGER II 

10670000 forward; 

10680000 BOOLEAN PROCEDURE TRACEFCTCALLCE )| 

10690000 VALUE Fl 

10700000 INTEGER Fl 

10710000 forward; 

10720000 boolean procedure tracefctreturn(f#suc ) ; 

10730000 value f* suc; 

10740000 INTEGER Fl 

10750000 boolean suc; 

10760000 forward; 

10770000 integer procedure ttindexcstj1 



C 

• 



* 
€ 

m 
m 

• 
• 



1 



m 



1 0780000 VALUE. ST; 

10790000 ALPHA STJ 

10800000 FORWARD* 

10810000 BOOLEAN PROCEDURE WRITEBUFFC8UF0UT* P* SIZE ) i 

10820000 VALUE SIZE; 

10830000 INTEGER P* SIZE* 

10840000 array buf0utc03; 
10850000 forward; 
10860000 procedure writeoata; 
10870000 forward; 
10880000 procedure writeinst; 
i0890ooo forward; 

10900000 PROCEDURE WRITEST; 

i09ioooo forward; 

10920000 procedure writfstack(n) ; 

10930000 value n; 

10940000 INTEGER n; 

10950000 forward; 

10960000 PROCEDURE WRlTETlME(F,N ); 
10970000 VALUE F» N; 
10980000 INTEGER ft Hi 

10990000 forward; 

11000000 LABEL 

11010000- ABORTION* % FATAL SYSTEM ERROR 

11020000 ENDOFRUN, % FINAL DUMPS' IF ANY 

11030000 EnDTFRPRET; % TRANSFERRED TO AT END OR FATAL ERROR 

11Q40000 x********cmeckoutuse************************* ******* 

11050000 boolean procedure checkoutusecst); 

11060000 value st; alpha st; 

11070000 checkoutuse * tf booleanc valtabl i st.str#st. stw 3 , 

11080000 THEN SN8L0UTCST) ELSE TRUE; 

11090000 l********CHECKOUTUSE**************************** 

1 1 tooooo x ****** **checksymbtabl* ******************* ****** 

11110000 X CHECKSYMBTABL LOOKS FOR SYMBOL TABLE ENTRIES 

11120000 % NOT PRECEDED BY A POINTER BACK TO THE SAME SY 

11130000 % ANY SUCH ENTRIES ARE FOUND, AN ERROR MESSAGE 

11140000 X THE JOB IS TERMINATED ABNORMALLY (WITH A COMP 

11150000 PROCEDURE CHECKSYMBTABL; 

1H60000 BEGIN INTEGER I* J* K, RW, CHR# P; 

11J70000 BOOLEAN URK; 

11180000 ALPHA AA; 

11190000 FORMAT FF( /"**SYM8TA8L LOCATION M #A2>" IS NOT 

11200000 » AT DATAt%I2*%*3 ♦ «*IH," CHARS. " ) » 

11210000 FPUSH C//"**PUSH-OOWN STACK INTO AVAILABLE SP 

11220000 FG </"**SYMBTA8L LOCATION ZERO HAS BEEN ALTER 

11230000 URK ♦ FALSE; 

11240000 IF NAMTABLtQ*03>0 OR VALTABLEO»03*0 THEN 

11250000 BEGIN WRITE? PRINT#FG); 

11260000 urk * true; 

11270000 end; 

11280000 for i * step 1 while i <, strmax and usedsui3 do 

11290000 BEGIN J ♦ NEXTCELLt 13 .STw; 

11300000 IF J / THEN DO 

11310000 BEGIN NAMTABL 1 1* J3 , t 3 J 1 3 • U 
11320000 J *- (NAMTABLCI»J3.LINK)»STW; 
11330000 END UNTIL J * OR J * STWMax; 

11340000 FOR J * STEP 1 UNTIL STWMAX 00 



i 
f 



******************** 



OUTUSE) 

************************ 
************************ 
WHICH POINT TO STRINGS 

MBTABL location. IF 
IS PRINTED AND 
LETE DUMP), 



POINTED TO BY ITS STRING" 



ACE LIST AT %A2># 
ED."); 



i 
« 
i 
c 



fyl 



m 



# 



11350000 
11360000 
11370000 
11380000 
11390000 
11400000 
11410000 
11420000 
1H30000 
11440000 
11450000 
11460000 
11470000 

11480000 
11490000 
11500000 
11510000 
11520000 
11530000 
11540000 
11550000 
11560000 
11570000 
11580000 
11590000 
11600000 
11610000 
11620000 
11630000 
11640000 
11650000 
11660000 
11670000 
11600000 
11690000 
11700000 
11710000 
11720000 
11730000 
11740000 
11750000 
11760000 
11770O00 
11780000 
11790000 
11800000 
11810000 

11820000 
11830000 

11840000 
11850000 
11860000 
11870000 
11880000 
11890000 
11900000 
11910000 



EN 
IF UR 
END C 
%**** 
***** 
PROCE 
FOR N 
X**** 
X**** 

BOOLE 

VA 

IN 

BEGIN 

LABEL 

INTEG 

X IF 

COMBI 

IF I* 

BE 

60 

EN 

I 

IF 



BEGIN 

FOR AA * NAMTABLC 
X CHECK STRING 
BEGIN RW «• TEM 
CHR «• TEMP»CH 
MV(2»0ATAERW,C 
IF I * P.STR 

begin write 
urk * true; 

end; 
end; 

IF NAMTABLCI»J3, t 

BEGIN 
AA «■ VALTABLCI'J] 

while aa * o do 

BEGIN IF BOOLE 
BEGIN WRITE 

URK * true; 
end; 

AA «• VALUtAAj. 

end; 

end; 
end; 
o; 
k then abort; 

hecksymbtabl; 

****CHECKSYM8TABL* 
****CLFAR********* 
DURE CLEAR(ARtN); 
* N • 1 WHILE N * 

****clfar********* 
****cqmBinearithme 
an procedure combi 
lue i; 

TEGER II 



I*vl3#VALTABLU#J3 00 IF AA.CH > 3 THEN 

S FOR BACK-POINTERS 

P.RI 

HR,W3*CHR.C#P#6); 

R J t P.STW THEN 

<PRINT*FF#*I&I C0nCSTR#RW#CHR+2>; 



1»23*0 then x string — check pu5h-d0wn stack 

.link; 



• 



AN£NAMEtAA3,t3Jl3) THEN 
<PRINT#FPUSH#AA>; 



link; 



************************************************* 
************************************************* 

value n; alpha array arcos; integer ni 
do m0vec8#blanks#0#arcn3»0>; 
************************************************* 
tic********************************************** 
nearithmeticci); 



FAUT# FIN* UNARY; 
ER J* K* LEVOP* N; 
INFORM THEN INFORMOC20); 
NEARITHMETIC * FALSE; 
1 J SP THFN 

SYNTAyERRC29,PLOCU3); 

fin; 



• 



IF 



GIN 
TO 

d; 

♦ 2 < sp then if ptypeci+23 * 7 then 
oplevelcpstci+233 > levop*oplevel[pst[ 1 3 3 then 
if not combinearithmeticu+2) then go to fin; 



J * I 

DO J 
IF J 
FOR K 
CA 

X 

; 
x 



♦ J-l UNTIL IF J<PBACKtI3 THEN 
< PBACKCI1 THEN GO TO UNARY; 

* J* 1+1 DO 
SE PTYPECK3 OF 

BEGIN GO TO FAUTI 
H STRING NAME 



TRUE ELSE PTYPECJ3*0I 



21 FUNCTION NAMEl 
GO TO IF K*J THEN 



UNARY ELSE FAUTI 



n 



* t 



c 



# 



• 

• 

# 






11920000 
11930000 
119*0000 
11950000 
11960000 
11970000 
119800OO 
11990000 
12000000 
12010000 
12020000 
12030000 
12040000 
12050000 
12060000 
12070000 
12080000 
12090000 
12100000 
12110000 
12120000 
12130000 
12140000 
12150000 
12160000 
12170000 
12180000 
12190000 
12200000 
12210000 

12220000 
12230000 

12240000 
12250000 
12260000 
12270000 
12280000 
12290000 
12300000 
12310000 
12320000 
12330000 
12360000 
12350000 
12360000 
12370000 
12380000 
12390000 
12400000 
12410000 
12420000 
12430000 
12440000 
12450000 
12460000 
12470000 
12490000 



% 

% 
% 
% 
% 
% 
% 
% 



31 LITERAL 

i 
41 »(« OF GROUP 
GO TO IF KpJ THEN UNARY El.SE FAUT; 

5* string variable 

begin syntaxerr(16»pl0ctk]); 

go to fin; 

end; 
6» indirection, uncombineo 

if not combineinoirection(k) 
71 consecutive arithmetic operators 

Begin syntaxerr<16>plocck3>; 

GO TO FIN* 

end; 

8» W / M 

GO TO 
91 STR 

GO TO 
10* 

J 
111 

60 
12! 

GO 
131 



THEN GO TO FIN! 



OF FIXED-LENGTH VAR 

IF K»J THEN UNARY ELSE FAUT; 

REF# PATTERN & REPLACEMENT 

FAUTJ 
INDIRECTION COMBINED 



• 



NOT IN USE 
TO FAuT* 

not in use 
to faut; 
"*» of str var 
begin syntaxerr(16>pl0c[k1); 

GO TO FIN) 
END) 

141 label in go-to part 
to faut; 
expression 



GO 
151 

; 

16l 

; 

17 t 

GO 
1«! 

GO 
191 



ARITH EXPR 



VAR 



w *( w OF BAL 

to faut; 

str ref & pattern 

to faut; 

complete arith expr< 



PSIZECK3 
20« "SC M # 



♦> PSIZECK] - 
"FC M » OR "(" 

GO-TO PART 
DO 



-REMOVE STRING CONVERT 

2; 

of go-to part 



• 



60 to faut; 

21! COmSInEO 

go to faut; 
end cases; 
n * o; 

FOR K ♦ J, 1+1. I 

BEGIN MOvt(PSlZECK3iiCOOEtPPOINTCK3fW3»PPOINTtK].C»SCRATCHCN.W3»N.C}; 

N *. N .♦ PSIZECK3; 

ptypfck3 * o; 
end; 
m0vecn#scratchc*3,0>c0decpp0intn3,w3#ppqintcj3.c); 

PSIZEN3 * n; 

ptypecj3 ♦ 1*; x incomplete arith expr 

combineaRIthmetig *■ true; 

go to fin; 

FAUT! 



</ 



m 



• 



m 
m 



12490000 
12500000 
12510000 
12520000 
12530000 
12540000 
12550000 
12540000 
12570000 
12580000 
12590000 
12600000 
12610000 
12620000 
12630000 
12640000 
12650000 

12660000 

12670000 
12680000 
12690000 
12700000 
12710000 

12720000 
12730000 
12740000 
12750000 
12760000 
12770000 
12780000 
12790000 
12800000 
12810000 
12820000 
12830000 
12840000 
12850000 
12860000 
12870000 
12880000 
12890000 
12900000 
12910000 
12920000 
12930000 
12940000 
12950000 
12960000 
12970000 
12980000 
12990000 
13000000 
13010000 
13020000 
13030000 
13040000 
13050000 



WRITEIN.STJ 
SYNTAXERRC40*0)* 
WRITE<PRINT,l7*CQDEC*3); 
WRITCSTACK(SP); 

systemerror * true; 

SO TO FIN* 
UNARY* 

IF PSTEI3 * "•" THEN 

BEGIN M0VE(K*PSIZEC I*U # CODEC (J*PP0XNTCX*U).W3# J. C* SCRATCH! * 3*0) J 

AA «■ %N"j 

Mv(2»AA»6*SCRATCHCK t W3*K,C)) 

M0VE<K*2*8CRATCHC*3#0#C0DE[(J»PP0lNTrl3),H]#J t C)l 

PTYPETl + n «• 0* 

ptypeci3 * 16; x arith expr-'no string convert 
psizeci3 * k+2; 
combinearithmetic * true; 
go to fin; 

END ELSE 
X CANT BE USE0 AS UNARYi 

BEGIN SYnTAXERRC11»P10CU3>; 
GO TO FIN* 

end; 

FINJ 

if systemerror then informoc20); 

x if inform then writeinst* 
end combinearithmetic* 
******* *#comBine arithmetic********************************************** 

f********C0M8lNEFuNCTl0N************************************************ 
PROCEDURE COMBINEFUNCTIONCMKS); 

VALUE MKS* 

INTEGER MKS; 
BEGIN INTEGER T* J* Nj 
* IF INFORM THEN INF0RMOC25); 

n * j * o; 

FOR I ♦ MKS+1 STEP 1 UNTIL SP-1 DO IF PTYPECI3 * THEN 

BEGIN MOvE(PSIZEtl3*CODECPPOlNTCl3,W]*PPOINTCn.C>SCRATCHtJ.W3*J,C); 
I * II 

j «• j ♦ psizEcn; 

PTYPFCI3 * 01 X WIPE OUT ELEMENT 
N .♦ N + ll 

end; 

MV(3»CODEt(I*PP0lNTCMKS3),W3»I,C'SCRATCHCJ,W3#J,C)l 

MV(l#N*7»SCRATCHtJ,W3, v l,C + 3); 

MOVE (J+4* SCRATCH C* 3*0, CODEC I. Nl»I v C)i 

ptypecmks3 * 15; x expression 
pnamecmks3 ♦ false; 
ptr * i ♦ cpsizeemks3*j*4>; 
x if inform thfn writeinst; 
End combinefunction; 

X********COMBInEFuNCTI ON*********** **************************** ********* 

x********combinegotopart************************ *************** ********* 
boolean procedure c0m8inegot0part (mks )* 

VALUE MKSJ 

INTEGER MKS; 
BEGIN 

LABEL FAIL* FAUT* FIN; 
INTEGER I* m; 
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# 
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• 



INDIRECTION CODE 



ILLEGAL LABEL 



IF PTYPECI] * THEN 
ILLEGAL LABEL 



13060000 X IF INFORM THfN INFQRM0C24}; 

13070000 IF PTYPrtMKS3 i 20 THEN GO TO FAUT; 

13080000 M ♦ MKS + \\ 

13090000 IF PTYPfEM] ■ A THEN X INDIRECTION 

131OOO0O BEGIN 

13110000 X GET NUMBER OF INDIRECTIONS J 

13120000 I «■ CHARfCODECPPOlNTCM3,w3#PPOlNTCM3.C*l)l 

13130000 IF I > 1 THFN 

13140000 BEGIN I * I • U 

13150000 Mv(l#I#7,cODECPPOINTCM3.W3*PPOINTCM3,C+n; X DECREASE BY 1 

13160000 IF NOT COMBINEINDIRECTION(M > THEN GO TO FAIL* 

13170000 END ELSE X MOVE BACK TO Ml 

13180000 BEGIN PTYPECM*t3 * 0/ 

13190000 PP0INTCM1 * PP0lNHM+i3; 

13200000 PL0CCM3 * PLOCtM+13; 

13210000 PSIZECM3 * PSIZeEM+13; 

13220000 end; 

13230000 ptr * pp0intcm3 ♦ psizecm3; 

13240000 st0rechars(i# ,, l m #7); % label 

13250000 PSIZFCM3 * PSIZEEMj + jj 

13260000 PTYPECM3 * 141 X LABEL EXPRESSION 

13270000 end; 

13280000 IF PTYPECM3 t 14 THEN 

13290000 begin syntaxerr(8*pl0c £m3 > ; % 

13300000 go to fail; 

13310000 end; 

13320000 for i * m+l step 1 until sp-1 do 

13330000 begin syntaxerrc 8*pl0c 1 1 3 >; x 

13340000 go to fail; 

13350000 end; 

13360000 ptr * pp0intcm3 ♦ psizecm3; 

13370000 psizecmks3 * p5izecm3i 

13380000 ptypecmks3 * 2\t x go-to part combined 

13390000 pp0intemks3 * pp0intcm3; 

13400000 PL0CCMKS3 * PL0CCM3; 
13410000 COMBINEGOTOPART ♦ TRUE; 
13420000 GO TO FIN; 
13430000 X 
13440000 FAUT? 

13450000 writeinst; 

13460000 syntaxerr<40*0>; 

13470000 writestacrcsp); 

13480000 systemerr0r * true; 

13490000 FAIL* 

13500000 IF SYSTEMERROR THEN INF0RM0(24); 

13510000 COMBINEGOTOPART * FALSE; 

13520000 FINI 

13530000 X IF INFORM THEN WRITEINST; 

13540000 END COMBINEGOTOPART; 

13550000 X********C0m8INE60TQPART************************************************ 

13560000 x********comb i negrqup** ********************************** *************** 

13570000 BOOLEAN PROCEDURE COMsiNEGROUP(MKS#CON ); 

13580000 VALUE MKS* CON; 

13590000 INTEGER MKS; 

13600000 BOOLEAN CON; 

13610000 BEGIN 

13620000 LABEL FAUTf FAIL' FIN; 
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13630000 
13660000 
13650000 
13660000 
13670000 
13680000 
13690000 
13700000 
13710000 

13720000 
13730000 
13740000 
13750000 
13760000 
13770000 
13780000 
13790000 
13800000 
13810000 
13820000 
13830000 
13840000 
13850000 
13860000 
13870000 
13880000 
13890000 
13900000 
13910000 
13920000 
13930000 
13940000 
13950000 
13960000 
13970000 
13980000 
13990000 
14000000 
14010000 
14020000 
14030000 
14040000 
14050000 
14060000 
14070000 
14080000 
14090000 
14100000 
14110000 

14120000 
14130000 
14140000 
14150000 
14160000 

14170000 
14180000 

14190000 



BOOL 

INTE 

% 

% IF 

COMB 

FOR 

C 
% 
% 
% 

% 

% 
% 
% 



FAN 

6ER 



arith; 

ERRNOf 



X FOR 

ERRPOlNT* 



DELETING 
l> *J# K* 



PARENS 

n; 



AROUND ARITH EXPRS 



INFORM THEN INF0RM0(21); 
INEGROUP * ARITH * FALSE; 
I * MKS STEP 1 UNTIL SP-1 DO IF PTYPEEH * THEN 

ase ptypect3 of 
begin; 

1* STRING NAME 

; 

2* FUNCTION (INCOMPLETE) 

so to faut; 

3» LITERAL 

; 

41 start of group 
go to faut; 

51 NOT USED 

go to faut; 

6* SN— INDIRECTION* UNCOMBINEO 

IF NOT COMBINEINDIRECTIONCI) THEN GO TO FIN; 
71 ARITH OPERATORS 

SE6IN 

IF NOT CnMBINEARITHMETlCCD 

WHILE I > AND PTYPEtU/16 

if ptyperu * 16 then go to 

insertstringconvert(i); 

arith * true! 

end; 
8» fixed*len6th "/" 

go to faut; 
91 str ref# pattern & replacement 

go to faut; 
101 indirection combined 



€ 

i 

€ 

i 

1 
4 
% 
% 



THEN GO TO 
DO I * I - 

faut; 



fin; 
i; % 



FIND RESULT 



NOT USED 

to faut; 

OMARK*-ERRQR 

to faut; 

M #« STR 

to faut; 

LABEL IN 

to faut; 
expression 



VAR-- ERROR 



60*T0 PART 



in 

GO 
12? 

GO 
13: 

GO 

141 

60 

15 i 

; 

16 8 ARITH EXPR—NO STRING CONVERT 
BEGIN 

insertstringconvertcd; 

arith «• true; % might be arith expr 

end; 
17 j "*( h of bal var 

go to faut; 
181 str ref & pattern 

go to faut; 

19j COMPLETE ARITH EXPR 

ARITH «\ TRUE* 
20l "S(«* "FC» OR w (" OF GO-TO PART 

go to faut; 



• 
• 









14200000 
14210000 
14220000 

14230000 
14240000 

14250000 
14260000 
14270000 
14260000 
14290000 
14300000 
14310000 
14320000 
14330000 
14340000 
14350000 
14360000 
14370000 
14380000 
14390000 
14400000 
14410000 
14420000 
14430000 
14440000 
14450000 
14460000 
14470000 
14480006 
14490000 
14500000 
14510000 
14520000 
14530000 
14540000 
14550000 
14560000 
14570000 
14580000 
14590000 
14600000 
14610000 
14620000 
14630660 
14640000 
14650000 
14660000 

14670000 
14680000 

14690666 
14700000 
14710000 
14720000 
14730000 
14740000 
14750000 
14760000 



IF 
IF 



IF 



ARITH * FALSE; X NOT A SIMPLE ARITH EXPR« 
191 % COMPLETE ARITH EXPR 



X 21 » COMBINED GO-TO PART 
GO TO FAUTJ 

END cases; 
n «• j * o; 

FOR I ♦ MKS STFP 1 UNTIL SP-1 DO IF PTYPEU3 t THEN 
BEGIN 

N «• N + U 
MOVE(PSIZEtn#CODE[PPOlNTtn.W3fPPOlNT[n f C#SCRATCH[J,w3#JtC>J 

IF N < 1 AND NOT CON THEN 

BEGIN PNAMECMKSj * PNAMECI3! 
PTYPEfMKSj * PTYPECI]; 
END ELSE PTYPEtl] * 01 

j * j ♦ psizEm; 
end; 

IF J m THEN 

BEGIN AA *• "XOO"; 
MV(J*3#AA»5»SCRATCHC*3,0); 
PTYPECMKSJ * II X STRING NAME 
PNAMEtMKSJ * TRUE) 

end; 

N > 1 THEN 

ARITH THEN 

BEGIN PTYPETMKS3 f 

PNAMECMKS3 * FALSEI 

END ELSE 

N > 1 OR CON THEN 

BEGIN AA * N & " < w t 36 I 42 t 63 ; 

MV(2#AA*6»SCRATCHCJ,w3»J.O; 

J «• J ' ♦ 2; 

PNAMECMKS3 * FALSE; 

PTYPEtMKSl * 151 % EXPRESSION 

end; 

MOVEU*SCRATCHf*3,0*COOEtCI*PPOlNTCMKS3),W3#I,C); 
PTR * I ♦ (PSlZEtMKS3*J)l 
COMBINEGROUP * TRUE! 

GO TO ftn; 
% 

FAUTI 

WRITEINSTI 

SYNTAXERR(40#0)I 
WRITE(PRINT#l7#CODEt*3)l 
WRITESTACKCSP)! 
SYSTEMERROR * TRUE; 

go to fin; 

FAIL* 

SYNTAXERR(ERRNO'ERRPQINT); 

FIN! 

IF SYSTEMERROR THEN INF0RM0C2UI 
% IF INFORM THEN WRITEINSTI 

END COMBINEGROUP; 

f ******* *COMBInEGRQUP****** ******* ********* ********* ****** ************** 

X ****** **COmB I NE INDIRECTION**** ************************* **************** 
BOOLEAN PROCEDURE C0M8INEINDIRECTI0N(MKS ); 

VALUE MKs; 

INTEGER MKSI 
BEGIN INTEGER T* ERRNO* J* K; 
LABEL FIN, FAIL* FAUTl 
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• 

m 



m 
m 



n 



• 



• 






14770000 
14780000 
14790000 
14800000 
14810000 
14820000 
14830000 
14840000 
14850000 
14860000 
14870000 
14880000 
14890000 
14900000 
14910000 
14920000 
14930000 
14940000 
14930000 
14960000 
14970000 
14980000 
14990000 
15000000 
15010000 
15020000 
15030000 
15040000 
15050000 
15060000 
15070000 
15080000 
15090000 

15100000 
15110000 

15120000 
15130000 
15140000 
15150000 
15160000 
15170000 
15180000 
15190000 
15200000 
15210000 
15220000 
15230000 
15240000 
15250000 
15260666 
13270000 
15280000 
15290000 
15300000 
15310000 
15320000 
15330000 



% 

% IF 

FOR 
B 
C 

% 



€ 

« 



THFN 
STEP 



INF0RM0C22); 
1 UNTIL SP«2 



00 IF PTYPECI1 • 6 THEN 



INFORM 
I «• MKS 
E6IN 

ASE PTYPEtl + U OF . X CHECK FOR SYNTAX ERRORS 
BEGIN 60 TO FAUT I 
H STRING NAME 
BEGIN J * W X"J % TO MARK AS NON-INPUT STRING 
MvCl»J#7,COOEfPPOINTl!*i3 f H3#PPOINTCI*U.C)l 

emd; 



NAME 



FUNCTION—INCOMPLETE 

X TO BECOME AN ERROR EVENTUALLY 

LITERAL 

GROUPING — INCOMPLETE 



2» 

f 

3« 

t 

41 

BEGIN 

GO TO 

end; 

51 NOT 

GO TO 



ERRNO 
FAIL* 



27; 



•SHOULD NOT OCCUR 



USFD 
FAUTJ 
6» INDIRECTION' 

GO TO FAUT* 
71 ARITHMETIC OPERATOR 
BEGIN ERRNO «• 34; 

go to fail* 
End; 

8» fixed-length v" 
begin irrno * 34; 
go to fail* 
end; 
str ref» pattern & replacement 

to faut; 

indirection combined 

to faut; 



* 

m 



GO 
101 

SO 

111 "»" 

begin errno 
go to fail* 

end; 

12i QMARK--ERROR 

go to faut; 

13s "*" STR 

begin errno 
go to fail; 

End; 

l«l LABEL IN 

to faut; 
expression 



34; 



VAR 

* 34; 



PART 



GO-TO 
60 
15! 

; 

161 INCOMPLETE ARITH EXPRESSION 

INSERTSTRINGCONVERTCI); 
I7t "*( M OF BAL VAR 

to faut; 

str ref & pattern 

to faut; 

COMPLETE ARITH EXPR 



GO 

188 

60 
I9l 

; 

20j 



"S£% »?(«> OR "<" OF GO-TO PART 



n 



m 






15340000 GO TO FAUT; 

15350000 % 2U COMilNEO GQ*TO PART 

15360000 60 TO FAUT; 

15370000 END CASES; 

15380000 % INTERCHANGE ELEMENTS* 

15390000 MOVE(K*PSIZp[I+l3»CODECCj*PPOlNTCX*lJ>.WJ#J,C*SCRATCHt*3*0)J 

15400000 MvC3»COOEtPPOlNTtl3.W 3 APPOINT tn.C*ScRATCHCK,W3*K,C); 

15410000 M0VE(K + 3,SCRATCHt*]*0fC00EtPP0lNTtn;W3*PP0lNTtn,C)J 

15420000 PSIZFCI3 * K ■♦ 3* 

15430000 PTYPECI3 * 101 % INDIRECTION* COMBINED 

15440000 PNAMFCI3 * TRUE; 

15450000 PTYPFtI+13 * 0) % WIPE OUT NEXT ELEMENT 

15460000 COMBINEINDIRECTION * TRUE; 

15470000 GO TO FIN; 

15480000 end; 

1549000.0 * IF FALL THRU* NO ARGUMENT TO *f 
15500000 ERRNO * 34; 
15510000 GO TO FAIL; 

15520000 FAUT I 

15530000 writfinst; 

15540000 syntaxerr(40#0); , 

15550000 writfcprtnt#17,c0dec*3); 

15560000 writfstackcsp); 

15570000 systfmerror * true; 

15580000 GO TO FIN; 

15590000 FAIL » 

15600000 SYNT AXERRC ERRNO* PLOCCI +13); 

15610000 FINI 

15620000 IF SYSTEMERROR THEN INF0RM0C22); 

15630000 % IF INFORM THEN WRITEINST; 

15640000 ENO combineinoiRection; 

15650000 %********CQ MB InE INDIRECTION*********************************** ********** 
15660000 X***#***#COmBinESTRVAr NAME ********************************************** 

15670000 BOOLEAN PROCEDURE C0M8INESTRVARNAME(MKS )| 
15610000 VALUE MKS; 

15690000 INTEGER MKS; 

15700000 BEGIN LABEL KIN* SUCCEED; 

15710000 INTEGER U 

15720000 % IF INFORM THEN INF0RMQC23); 

15730000 COMBINESTRVARNAME * FALSE; 

15740000 IF I«-PTYPECMKS3 t 13 AND I * M THEN 

15750000 BEGIN WRITEINST; 

15760000 SYNTAXERRC40»0>; 

15770000 WR!TECPRINT,l7,CaOE[*3); 

15780000 WRITFSTACKCSP); 

15790000 SYSTEMERROR «■ TRUE; 

i58ooooo go to fin; 
15810000 end; 

15820000 PTYPECMKS3 ♦• 0; 

15830060 i F N0T C 0M8INEGR0UP<MkS»FALSE) THEN 60 TO FIN; 

15840000 IF NOT PNAMEtMKS3 THEN 

15850000 BEGIN SYNTAXERR(52* PLOC EMKS + 1 3 ) ; X INVALID NAME 

15866600 go To succeed; 
15870000 end; 

15880000 X MARK AS NON-INPUT 

15890000 IF PTYPFtMKS3 * 1 THEN * IDENT IF IER--CHANGE TO M X" TYPE 

15900000 BEGIN I * "ft 
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15910000 
15920000 
15930000 
15940000 
15950000 
15960000 
15970000 
15980000 
15990000 
16000000 
16010000 
16020000 
16030000 
16040000 
16050000 
J 6060000 
16070000 
16000000 
16090000 
16100000 

16110000 

16120000 
16130000 
16140000 

16150000 
16160000 
16170000 
16180000 
16190000 
16200000 
16210000 
16220000 
16230000 
16240000 
16250000 
16260000 
16270000 
16280000 
16290000 
16300000 
16310000 
16320000 

16 330000 
16340000 
16350000 

1636000& 
16370000 
16380000 
1*190000 
16400000 
16410000 
16420000 
164 30000 
16440000 
16450000 
16460000 
16470000 



MV(l#I»7,C0DECPP0lNT[MKS3.H]#PP0lNTtMKS],C)l 
END ELSE 
IF PTYPEEMKS3 ■ 10 THEN % INDIRECTIQN--REMOVE "I" 
BEGIN PTYPECMKS3 * 15* % EXPRESSION 
P5IZECMKS3 * PSIZEEMKS] • \t 

END! 
SUCCEED! 

COMBINESTRVARNAME ♦ TRUE; 
FIN! 

IF SYSTEMERROR THEN INF0RM0C23); 

% IF INFORM THEN WRITEINSTJ 
END COMBINESTRVARNAME) 

%****#***ComBInESTRvARNAME********** ************************************ 
%#*#**#**eOMPlLE************** ********************** ******************** 
X 

the internal form of a 5nob0l program is described here* 

the program is "segmented"' with a labeled instruction starting a 
segment* and the unlabeled instructions following it are in*the 
same Segment, a segment is a string, whose "name" is the label of 
its first instruction* and whose "value" is the internal coded 
form of the instructions in the segment, 

each segment starts with 2 chars giving the loc of the next 
segment* for patching purposes, 

each instruction starts with a 7-char "introduction" giving! 

1 charj the illegal char 

2 chars! the number of the instruction* as given in the listing 
2 chars! the location of the success exit* relative to the 

first char of the segment, 
2 chars! the same for the failure exit, 
if either exit isnt specified* and the next instruction is 
unlabeled* the pointer is to the illegal char at the start of the 
next instruction! if the next inst is labeled^ the gq-to part is 
"filled out" with a transfer to this label, 



THE INTERNAL CODE IS! 

STRING NAMES AND LABELS IN THE GO-TO PARTS ARE REPRESENTED BY 
A QUOTE FOLLOWED BY A 12-BIT (2-CHARS) POINTER TO SYMBTABL, 

LITERALS ARE REPRESENTED BY "?" FOLLOWED BY A 2-CHAR POINTER 

TO symbtablI 

PATTERN MATCHES ARE INDICATED BY «»" FOLLOWING THE CODE FOR 
THE PATTERN) REPLACEMENTS ARE INDICATED BY "*" FOLLOWING THE CODE 
FOR THE REPLACEMENT, (BOTH ARE POSTFIX OPERATORS,) 
THE RESERVED LABELS ARE REPRESENTED AS FOLLOWS! 
END! "*E" 
RETURN! "-R" 
FRFTURN! "-F" 

syntax errors fause the character "x" where the string reference 
should be, 

functions are postfix operators* which use 4 characters! "#« 
to indicate the function call* 2 chars for a pointer to the 
symbol table entry for the function* and 1 char to give the number 
of parameters, 

indirection is a postfix operator consisting of a "$" and one 
character giving the number of indirections, note that this means 

THAT THE SYSTEM CAnT HANDLE MORE THAN 63 CONSECUTIVE DOLLAR SIGNS 
WITHOUT USING PARENTHESES TO CAUSE A GROUPING, THIS IS NOT 
EXPECTED TO CREATE ANY HARDSHIPS WITH ANY USERS, 



€ 



m 
m 












16480000 
16490000 
16500000 
16510000 
16520000 

16530000 
16540000 
16550000 
16560000 
16570000 
16580000 
16590000 
16600000 
16610000 
16620000 
16630000 
16640000 
16650000 
1 6660000 

16670000 
16680000 
16690000 
16700000 
16710000 
16720000 
16730000 
16740000 
16750000 
16760000 
16770000 
16780000 
16790000 
16800000 
16810000 
16820000 
16830000 
16840000 

16850600 
16860000 
16870000 
16880000 
16890000 
16900000 
16910000 
16920000 
16930000 
16940000 
16950000 
16960000 
16970000 
16980000 
16990000 
17000000 

17010000 
17020000 
17030000 
17040000 



X 
X 

X 
X 

X 

X 

X 
% 
X 
X 
X 
X 
X 

X 

X 

% 

I 
% 

% 

% 

X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X 
X ■ 

procedure: compileunst); 

BEGIN LABEL 

NEXT, ILLEGAL* 

BL# LIT* STR* 

NAME, NAME!. CMA* GOTO* 

CONDENSEPATTERN* 
C0N0EN5£REPLACEMENT» 

OLR* 
END5TRVAR* 

ERROR* 

NOP* 

OP* 

PARENERR* 

GMRK, RETURN* 

MESFIL* 

SEMICOLON* START* LI 

§ 
* 

X******** 

BOOLEAN 

ARITH* 

ARF* 



THE FOLLOWING STACK ARRAYS ARE USED BY THE COMPILER* 

PL0CE*1 HOLDS POINTERS INTO INSU*J* TO THE START OF THE ORIGINAL 

COOE FOR THE ELEMENT* FOR DIAGNOSTIC PURPOSES 
PPOINTC*] HOLDS POINTERS INTO C0DEE*3* TO THE START OF THE 

COMPILED CODE FOR THE ELEMENTS 
PSIZft*] HOLDS THE SIZE OF THE COMPILED PIECE OF CODE 
PBACKt*] LINKS BACK TO THE START OF NEXTlNGS OF GROUPINGS OR 

OF FUNCTION CALLS 
PSTt*] HOLDS THE OPERATOR FOR ARITHMETIC OPERATORS 
PTYPfC*3 IS THE TYPE OF ELEMENT* AS FOLLOWS! 
01 iGNORf— COMBINED WITH EARLIER ELEMENTS 
STRING NAME 

START OF FUNCTION CALL (#•••> 

L ITER Al 

»(" AT START OF GROUPING 

STRING VARIABLE—COMBINED INTO ONE ELEMENT 

INDIRECTION* UNCOMBINEO (*N) 

ARITHMETIC OPERATOR 

"/" OF FIXED»LENGTH VARIABLE 

STR REF* PATTERN* & REPLACEMENT 

INDIRECTION* COMBINED (INCLUDES 

NOT IN USE 

NOT IN USE 

"*" AT START OF STRING VARIABLE 

LABEL IN GO-TO PART 

EXPRESSION (COMBINED) 

ARITHMETIC EXPRESSION— NO STRING 

•»*(•» OF BALANCED STRING VARIABLE 

STR REF S PATTERN TOGETHER, 

COMPLETE ARITH EXPR (WITH STRING 

„ S («, »r( w * OR "( M OF GO-TO PART 

COMBINED GO-TO PART 



II 

21 
31 

41 
51 
61 

71 

81 
9* 

101 
11* 
12* 
131 
14: 
15* 
161 
171 
181 
19* 
20* 
21* 



COMBINED 

•»I W FOR INPUT 



m 
« 

• 

• 



CHECK) 



• 



CONVERT ADDED 



CONVERT) 



ALPHA ARRAY iNSTCOj; 



GTPART* 



m 

m 
m 
m 









17050000 FIXEDLENGTH, 
17060000 NF» 

7070000 PATTERN* 

7080000 REPLACEMENT, 

7090000 SVFJ 

7100000 BOOLEAN ARRAY CQMPlLlNGFCTCO»503l 

7110000 INTEGER 

7120000 FIRSTCHAR* % FLAGS FOR FIRST OF INST, 

7130000 I* 

7140000 J* 

7150000 T, 

7160000 TEMPJ 

7170000 % 

7180000 P *■ SCANCHAR*" w # w "# INST C* 3,0 5 J 

7190000 STARTI 

7200000 FOR I «• STEP 1 UNTIL 5 00 BACKTRACKCO, 13 * 01 

7210000 FIRSTCHAR * MKS * PARENCOUNT * 0* 

7220000 GTlaST * qT) 

7230000 PATTERN <• REPLACEMENT ♦ GT «• GTS ♦ GTF * SYSTEMERROR * SVF * ARF ♦ 

7240000 FIXEOLENGTH ♦ FALSE* 

7250000 P * P * i; 

7260000 P + P + SKIPCHAR( M "» INST [ P.N] ,P ,G ) I 

7270000 IF P I INSTSIZE THEN 60 TO RETURN! 

7280000 SP * *U 

7290000 IF DATACOMF THEN IF INSTNUM MOO 10 • THEN 

7300000 IF INSTNUM ■ THEN % RETURN, LINE FEED, 

7310000 BEGIN MV( 3» CRLF>5,DCWRITEC *3 # 0); 

7320000 IF OUTPUT THEN* 

7330000 END ELSE 

7340000 % WRITE INST KM 

7350000 MESSAGETTIU5*INSTNUM)J X TYPE # ON TELETYPE, 

7360000 NEXT« 

7370000 IF CSP«-SP + 1) £ STACKSIZE THEN 

7380000 BEGIN SYNTAXERR( 2l*P ); 

7390000 GO TO RETURNl 

7400000 end; 

7410000 % if inform then 

7426060 * begin wv(6#insttp,w3#p,c»aa,2)j 

7430000 % inf0rmiac2#sp,aaw 

7440000 % END; 

7450000 PP0INTCSP3 * PTR* 

7460000 PL0CTSP3 * PI % SAVE FOR SYNTAX ERRORS 

7470000 IF P * INSTSIZE THEN GO TO QMRKJ 

7480000 CASE CHARTYPECCHARC INSTCP, W3 »P,C )3 OF 

7490000 BEGIN 

7500000 X 01 ERROR 

7516000 BEGIN SYNTAXERRO'P); 

7520000 GC TO RETURN* 

7530000 END* 

7540000 % 1« BLANK 

7550000 BEGIN P * P + SKIPCHARC" ", INSTCP ,W 3 ,P ,C) i 

7560000 SP * SP « l! 

7570000 GO TO NEXT! 

7580000 ENOI 

7590000 % 21 "*" OR W * M 

7600000 BEGIN 

7610000 IF SP < 1 THEN 



• 

• 



€ 

m 



m 
m 



• • 



n 



• 
• 



• 



• 



# 



17620000 
17630000 
17640000 
17650000 
17660000 
17670000 
17680000 
17690000 
17700000 
17710000 
17720000 
17730000 
17740000 
17750000 
17760000 
17770000 
17710000 
17790000 
17600000 
17810000 
17820000 
1T830000 
17840000 
17850000 

17860000 
17870000 
17880000 
17890000 
17900000 
17910000 
17920000 
17930600 
17940000 

17950000 
17960000 
17970000 
17980000 
17990000 
18000000 
18010000 
18020000 
18030000 
18040000 
18050000 
18060000 
18070000 
18080000 
18090000 
18100000 
18110000 
18120000 
18130000 
18140600 
16150000 
18160000 
18170000 
18180000 



X EXTRA "«." OR «»■ 



8f6in syntaxerr(6*p>; 
go to return; 

END! 
IF NOT CPNAMEC03 OR PTYPEC03*6) THEN 

BEGIN SYNTAXERR(15*P)I % REPLACEMENT IN VALUE EXPR 

GO TO RETURN! 

END) 

i'r arf Then 

begin syntaxerrci3*p); 
" go to return; 

end; 
if parencount * then 

begin syntaxerrc27#p); % missing h > m 

go to return; 

end; 
if svf then 

begin syntaxerr(38*p); % missing "* m 

go to return; 

end; 
if gt then 

begin syntaxerrc7»p); 
go to return; 






% UNRECOGNIZED GO-TQ CONSTRUCT 



End; 
arf * true; 

P 4> p 4 1 I 

condensepattern* 

% if inform then inf0rm0c27); 
for i * step 1 until sp-1 00 
case ptypeuj of 

begin; % if 0# ignore 

%\t STRING NAMEJ 

; 

% 2J START OF lUNCTlON CALL 

60 to error; 

% 3» LITERAL 



• 



»< 



OF 6R0UPINQ 

error; 

VAR 






41 * 

GO TO 
51 STR 

; 

61 INDIRECTION 
IF NOT COMBINEINOIRECTIQNCI) 

7» ARITH OPERATOR 
BEGIN IF NOT COMBlNEARITHMETICC I J THEN 
WHILE I > AND PTYPEU3*16 00 I ♦> I • 
IF PTYPECIJ * 16 THEN 60 TO ERROR; 

insertstringconvert(i); 
end; 

8J "/" OF FIXED'LENGTH VAR 

go to error; 

91 STR REF* PATTERN & REPL 

go to error; 

101 INDIRECTION COMBINED 

; 
n« 

60 
12« 



THEN 60 TO RETURN; 



6o to return; 

l; % FIND RESULT 



UNUSED 

to error; 

UNUSED 



e 



• 

• 






18190000 
18200000 
18210000 
16220000 
18230000 
18240000 
18250000 
18260000 
18270000 
18280000 
18290000 
18300000 
18310000 
18320000 
18330000 
18340000 

18350000 
18360000 
183T0000 
18380000 
18390000 
18400000 
18410000 
18420000 

18430000 
18440000 
18450000 
18460000 
18470000 
18480000 
18490000 
18500000 
18510000 
18520000 
18530000 
18540000 
18550000 
18560000 

18570000 
18580000 

18590000 
18600000 
18610000 
18620000 
18630000 
18640000 
18650000 
18660000 
18670000 
18680000 
18690000 
18700000 
1 8710000 
18720000 
18730000 
18740000 
18750000 



VAR 



to error; 

w *» OF STR 

TO errors 

LABEL IN GO-TO 
TO ERRORS 
EXPRESSION 



60 
X 13» 

GO 
% 141 LABEL IN GO-TO PART 

GO 
% 151 

; 

I 16* ARITH EXPR— NO STRING CONVERT 

INSERTSTRINGCONVERTtl); 
X 171 "*<* OF BAL VAR 

GO TO ERRORJ 
X 181 STR REF 4 PATTERN 

SO TO ERROR! 
X 19: COMPLETE ARITH EXPR 

; 

X 20J w Sf"# "FC W > OR «C* OF GO-TO PART 

60 to error; 
x 21 j combined go-to part 

60 TO ERROR; 

end cases; 

n * 12 * oj 

for i t 1 step 1 until sp-1 00 if ptypeei3 / then 

bfgin 
movecpslzeel3#codeeppoint[i3.w3»ppointei3.c»scratchel2.w3#i2tc>; 

12 * 12 ♦ psizEtn; 

Ii #• II ♦ u 

ptypeci3 * o; 
end; 
if ii * 1 then 

BEGIN 

IF PTYPEP03 * 1 THEN 

BEGIN AA * n X w ; 

MV(l»AA.7#COOEi:PPOINTE0 3,W3»PPOlNTt03,C3; 

END ELSE 
IF PTYPEC03 * 10 THEN 

BEGIN PTYPEC03 «• 15; X EXPRESSION 
PSIZEC03 * PSIZEC03 - ll X DROP "I" 

end; 

PTR * PP0INTE03 + PSIZEE03; 
ST0RECHARSC1» H S«»7>; 

ST0RECHARS(I2»SCRATCHE03*0 3; 
ST0RECHARS(l# tta * w #7)j 
PSIZEE03 * PSIZEE03 ♦ 12 ♦ 2\ 

FIRSTCHAR.E43I2] «• 3; X STR REF* PATTERN EXIST 
PTYPEE03 * 18; X STR REF & PATTERN 
END ELSE 

FIRSTCHAR.E43I23 * 21 X STR REF* NO PATTERN 
IF GT THEN X PUT IN "/" AS 60-TO DELIMITER 
BEGIN ST0RECHARS(l# w / w #7); 
PSIZEE03 ♦ PSIZEE03 + 1J 

end; 
pattern * true; 

SP •> Oj 

PBACKEMKS*13 ♦ 01 

X IF INFORM THEN WRITEINST; 

GO TO next; 

END! X CASE FOR "■ n OR w «-% 



€ 

• 

• 
* 



• 

m 












• 
• 



18760000 X 31 LETTER* DIGIT* QR PERIOD 

18770000 GO TO NAME* 
18780000 % 41 «•*«♦ 

18790000 60 TO LIT* 

18800000 % 51 M <" 

18810000 BEGIN 

18820000 IF GT THEN TF PARENCQUNT * THEN GO TO GTPART) 

18830000 COMPILINGFCTCPARENCOUNT*PARENCOUNT*13 * FALSE) 

18840000 P ■* P + U 

18850000 PBACKtSPJ * MKS) 

18860000 MKS * SP) 

18870000 PTYPEtSPI ■* 4) % "(" — BEGIN GROUPING 

18880000 PSIZECSP] * 0) % NOTHING TO STORE IN CODE HERE 

18890000 GO To NEXT; 

18900000 END) 

18910000 X 6» w ) w 

18920000 BEGIN 

18930000 if parencount i then 

18940000 begin syntaxerrci2#p>; x extra right paren 

18950000 go to return) 

18960000 END) 

18970000 IF SVF AN& NOT FIXEDUENGTH THEN IF PARENCOUNT * 1 THEN 

18980000 IF PTYPECMKS] * 17 THEN 

18990000 BEGIN 

19000000 IF CHAR(INSTtPtW3»P.01> * H ** THEN 

19010000 BEGIN SYNTAXERRC 38#P+1 )) 

19020000 GO TO RETURN; 

19030000 end; 

19040000 P ♦ P ♦ lM SKIP "J* 

19050000 PARENCOUNT * OJ 

19060000 60 TO ENDSTRVAR; 

19070000 END BALANCED VARIABLE ELEMENT; 

19080000 IF GT AND PaRENCOUNTsI THEN X END OF A PIECE OF THE GO-TO PART 

19090000 begin 

19100000 if not combinegotopartcmks) then go to return; 

19u0000 end else 

19120000 if c0mpilingfctcparenc0unt3 then 

19130000 BEGIN 

19140000 IF NOT CnM8INE6R0UP(MKS*l*FALSE) THEN GO TO RETURN) 

19150000 C0MBINEFUNCTI0N(IF PTYPEfMKSJ*»2 THEN MKS ELSE ( MKS*P8ACKCMKS3 ) >) 

19160000 END EL§E 

19170000 BEGIN PTYPEtMKS] * 0) X WIPE OUT "(" ENTRY 

19180000 IF NOT COMBINEGROUPCMKS*TRUE) then go TO return; 

19190000 end; 

19200000 PARENCOUNT ♦• PARENCOUNT * U 

19210000 P * P + i; 

19220000 IF PTYPEtSP*MKS3X2 THEN MKS * PBACKtMKSJ) 

19230000 GO TO NEXT) 

19240000 end; 

19250000 X 71 "*" 

19260000 GO TO STr; 

19270000 X 81 "$» 

19280000 GO TO DLR) 

19290000 X 91 "I" GO-TO PART 

19300000 GOTO' 

19310000 BEGIN 

19320000 IF SVF THEN X UNMATCHED STR VAR * BEFORE GO-TO. 



e 

t 

m 
m 



c 

« 
t 

m 
m 

m 
m 
m 



• 



d 



• 



19330000 
19340000 
193S0000 
19360000 

19370000 
19380000 

19390000 
19400000 
19410000 
19420000 
19430000 
19440000 
19450000 
19460000 
19470000 
19480000 
19490000 
19500000 
19510000 

19520000 
19530000 
19540000 
19550000 
19560000 
19570000 
19580000 
19590000 
19600000 
19610000 
19620000 
19630000 
19640000 
19650000 

19660000 
19670000 
19680000 
19690000 
19700000 
19710000 
19720000 
19730000 
19740000 
19750000 
19760000 
19770000 
19780000 
19790000 
19800000 
19810000 
19820000 

19830000 
19840000 
19850000 
19860000 
19870000 
19880000 
19890000 



syntaxerr(38*pp0intcsp-u); 
return; 



BEGIN 
60 TO 

end; 
if gt then 

begin syntaxerr(7#ph 

GO TO return; 

end; 
if parencount t then 

begin syntaxerrc10*p>; 

go to return; 

end; 
gt * true; 
p ♦• p + i; 

psizecsp} «• ptypecsp] * 0; 
if not arf then 

SEGIN FlRSTCHAR t U5tl3 * 

60 to conoensepatternj 

'End; 
% replacement to 8e condensed 
condensrreplacement i 

% if inform then infqrmqc28); 
for i * step l until sp-1 do 

case ptypeu3 of 

BEGIN 
% 0» IGNORE 

; 

X II STRING NAME 

9 

x 2* function call 

go to error; 
x 3» literal 

; 

% 4t «<» op GROUPING 

go to error; 
* 5j str var combined 
go to error; 

X 61 INDIRECTION 

IF NOT COMBINEINDXRECTIONCI) 
% 71 ARITH OPERATOR 

BEGIN 

if not combinearithmeticu) 
while i > ano ptypecmm6 
if ptypecu * 16 then go to 
insertstringconvert(i); 
end; 
x 8: «/» of fixed»len6th var 
go to error; 

X 9» STR REF* PATTERN 4 REPLACEMENT 
GO TO ERPOP; 

INDIRECTION COMBINED 



% UNRECOGNIZED CONSTRUCT 



X PAREN COUNT NON-ZERO 



0; * NO REPLACEMENT 



c 

4 

4 
i 

4 
4 
4 



4 
4 

* 

m 



then go to return; 



then go to return; 

do i «■ 1*1; x find result 

error; 



10* 

; 

in 

GO 
12» 

GO 
13: 

GO 



UNUSED 

to error; 

UNUSED 

to error; 

"*" OF STR 

to error; 



VAR 






f 



• 






19900000 
199*0000 

19920000 
19930000 
19940000 
19950000 
19960000 
19970000 
199S0000 
19990000 
?0OOOOOO 
20010000 
20020000 
20030000 
20040000 
20050000 
20060000 
20070000 
20080000 
20090000 
20100000 
20110000 
20120000 
20130000 
20140000 
20150000 
20160000 
20170000 
20110000 
20190000 
20200000 
20210000 
20220000 
20230000 
20240000 
20250000 

20260000 
20270000 
20280000 
20290000 
20300000 
20310000 
20320000 
20330000 
20340000 
20350000 
20360000 
20370000 
20380000 
20390000 
20400000 
20410000 
20420000 
20430000 
20440000 
20450000 
20460000 



141 GO-TO LABEL 

GO TO ERROR* 

15» expression 

161 arith expr— no str convert 
insertstringconvertcd* 

171 "*f" OF BAL VAR 

60 TO ERROR* 

18« STR REF & PATTERN 

IF I t THEN GO TO ERROR* 

191 COMPLETE ARITH EXPR 



% 20« M S<", "FC", 

GO TO ERROR* 
% 21i COMBINEO GO 
60 TO ERROR* 



OR "(" OF GO*TO PART 
•TO PART 



i 

t 

i 



EXPRESSION 
% DROP *I M 



ENO CASES* 

IF PTYPEtQ] * 1 THEN % MARK AS NON-INPUT 

8FGIN AA * "*"* 

Mv(l#AA#7»COOEtPPOlNTt03,w3»PPOINTt03tCJJ 

END ELSE 
IF PTYPEClJ s 10 THEN 

BEGIN PTYPECOJ * 15; X 

PSIZECOJ «- PSlZEtOJ - i; 

End; 
n «• 12 *■ o; 

FOR I M STEP 1 UNTIL SP-1 00 IF PTYPECI3/0 THEN 
BEGIN 

M0VEfPSlZEni»C0DECPP0lNTtn,W3*PP0INTm.C>ScRATcHCl2,WJ#l2.C)* 
12 * 12 ♦ PSlZEtH* 
II ♦ II + 1* 
PTYPEU3 * 0* 

end* 
ptr * pp0intc03 + psizec03* 
firstchar.c45i13 * 1* % replacement exists 

STOIeCHARK 12* SCRATCH £03»0)* 
3T0RECHARSC1,** M *7); 
PSiZrt03 * PSIZECQ3 • + ■ 12 ♦ 1* 

PTYPEE03 * 9* X STR REF# PATTERN 4 REPLACEMENT 
REPLACEMENT * TRUE; 
SP * 0* 

PBACKCMKSM3 * 0* 
* IF INFORM THEN WRITEINST* 
GO TO NEXT* 

END* X CASE FOR GO-TO "t M OR M / M 
10 1 W »", M +*#0R *x" 
GO TO OP* 

111 %" 

o e g <t » j 

IF NOT COMPTLINGFCTCPARENCOUNT] THEN 

BEGIN SYNTAXERR(9»P); % ILLEGAL COMMA 
GO TO RETURN* 

END* 
IF NOT C0M8INEGR0UP(MKS*1»FALSE) THEN GO TO RETURN* 
PBACKtMKS+H * (IP PTYPE[MKS3*2 THEN MKS ELSE PBACKCMKS33* 
MKS * SP *■ MKS + 1* 
P * P * 1* 












20470000 

?0480qoo 

20490000 
20500000 
203 t 0000 
20320000 
20530000 

20540000 
20550000 
20560000 

20570000 
2O58OOOO 

20590000 
20600000 
20610000 
20620000 
20630000 
20640000 
20650000 
20660000 
20670000 
20680000 
20690000 
20700000 
20710000 
20720000 
20730000 
20740000 
20750000 
20760000 
20770000 
20786o60 
20790000 
209O0OOO 
20810000 
20820000 
20830000 

20840000 
20850000 
20860000 
20870000 
20880000 
20890000 
26966606 
20910000 
20920000 
20930000 
20940000 
20950.000 
20960000 
20970000 
20980000 
20990000 
21000000 
21010000 
21020000 
21030000 



* true; 
pbackcmks3j 



M M 



THEN 
OR I ■ W P" OR I 



(H 



go to next; 

END! 

BEGIN IF SVF AND PARENCOUNT * AND NOT FIXEDLENGTH THEN 
BFGIN % FIXED-IENGTH VARIABLE SLASH 

if ptypecmks3 * 13 then 
begin syntaxerru4,p); 
go to return; 
end; 

IF NOT COMBINESTRVARNAMECMKS) THEN GO TO RETURN; 
PTYPECSP«-MKS + U «• 8; % FIXED-LENGTH V" 
PPOlNTCSpj * PTr; 
PSIZEfSPI * O; 
P * P ♦ 1; 

fixedlength 
prackcsp1 * 

MkS ♦ SP| 

go to next; 
end; 

IF PARENCOUNT s then 

IF CHAR(INSTC(P«1),W3,(P-1),C) * 
IF I*CHAR(INSTCP.W3#P.C+1) * w s 
THEN GO To GOTO; 

GO to op; 

end; % CASE FOR V" 
% 1 3 * QMARK 

IF P £ INSTSIZE THEN GO TO QMRK; 
% 14 f n y n 

go to semicolon; 

end cases; 

ILLEGAL* 

syntaxerrc3,ph 
go to return; 

LITi 

if 6t then if parencount s 1 then 

Begin syntaxerR(28>p>; go to return; end; 

BEGIN 

PSIZECSP] * 3; PTYPECSP] * 3; % LITERAL 

t * p; 

P * P ♦ SCANCHAR( Ww », MW ",INSTtP.W3»P.C+l) * D 

if p z instsize then 
begin 8yntaxerr(0#t); 
go to return; 

End; 

T ♦■ ENTERSTeP-T-lMNSTC*J*T+l>*llT") 4 M ?"C 30 * 42 J 6 U 

ST0RECHARS(3#T#5); 

P * P + i; 

GO to next; 

end; 

NAME* 

IF GT THEN IF PARENCOUNT ? OR PTYPE£SP-1J * 20 THEN GO TO GTpART; 
PSjZftSP] * 3; 

"f * p; 

DO P ♦ P + 1 UNTIL CHARTYPECCHAR(INSTCP.W3#P t C)3 * 3; 

T * IF CHAReiNSTEP,W3»P.C) * ,, ( w 

THEN ENTERST(P-T#INST[*3*T* , 'FCT H ) & M #"t30M2i63 
ELSE ENTERST(P*T«INSTC*]#T* M SYMB W ) & " MM C 30 :42 *6l; 



€ 

i 

i 



1 






% 
% 

i 
1 



d 



* 

m 

m 

m 



• 

• 



21040000 
21030000 
21060000 

21070000 
21080000 

21090000 
21100000 
21110000 
21120000 
21130000 
21140000 
21150000 
21160000 
21170000 
21180000 
21190000 
21200000 
21210000 
21220000 
21230000 
21240000 
21250000 
21260000 
21270000 
21280000 
21290000 
21300000 
21310000 
21320000 
21330000 
21340000 
21350000 
21360000 
21370000 
21380000 
21390000 
21400000 
21410000 
21420000 
21430000 
21440000 
21450000 
21460000 
21470000 
21480000 
21490000 
21500000 
21510000 
21520000 
21530000 
21540000 
21530000 
21560000 
21570000 
21580000 
21590000 
21600000 



storecharso 
if charcinst 

BEGIN 

COMPILING 
PTR ♦ PTR 

P * P ♦ 1 
PBACKCSP1 
MkS * SP; 
PTYPEfSP] 
PSIZEtSP] 
GO TO NEX 
END ELSE 
BEGIN PTY 
PNAMEfSP] 

EnDI 

go to next; 

GTPARTI 

IF PARENCOUN 
BEGIN 
IF CTEMP 
IF CHABCI 
BEGIN 
IF CIF 
BEG 
GO 

END 
P * P 

PARENC 
IF TEM 
PTYPEr 
PBACKT 
PSTESP 
60 TO 
END EL 
BEGIN 
COMMEN 
GO TO 
END EL 
IP TEMP * 
BEGIN 
IF GTS 
BEG 
GO 
END 
P * P 
PARENC 
GTS ♦ 
PTYPEC 

PBACKr 
PSTCSP 

GO TO 

END EL 
BEGIN 

GO TO 

END) 

END ELSE 
IF PARENCOUN 



EP«W3*P.C) ■ M ( M THEN 

FCTtPARENCOUNT*PARENCOUNT+n * TRUE! 

* i; % MAKE ROOM FOR CHAR GIVING # OF PARAMS 

J 

* MKS; 

* 2; % FUNCTION CALL 

* 3; % ■■«-•• 
t; 

pecsp3 * m % string name 

♦ true; 



T * THEN 

* CHAR(INSTCP,W1#P.C)) * M S W OR TEMP m «F" THEN 
NSTCPtW3#P,C*l) • H C" THEN 

TEMP*»S» THEN GTS ELSE GTF) THEN 
IN SYNTAXERR(4#P}! 
TO RETURNI 

; 

+ 2) 

OUNT * i; C0MPILINGFCTU3 * FALSE! 
p s «S" THEN GTS * TRUE ELSE GTF «• TRUE! 
SP3 * 20! % "SC% N F( M * OR "C OF GO-TO PART 
SP3 «■ MKS! MKS <• SP! 
] * TEMP! 
NEXT! 
SE 

SYNTAXERR(5#P+1)! 
T CHAR AFTER S OR F NOT "( M ! 
RETURN! 
SE 
W C H THEN 

AND GTF THEN 
IN SYNTAXERR(4,P)! 
TO RETURN! 

; 
♦ i; 

OUNT * 1! C0MPILINGFCTE1J * FALSE; 

GTF * TRUE! 

SP3 * 20; X "S(% M FC*# OR w <" OF go-to PART 

SP3 ♦ mks; MKS * sp; 

3 ♦ "<*; 

next; 

SE 

syntaxerr<7#p); 
return; 



i 
• 

C 

• 



• 
• 






# 



T ■ 1 THEN 



• 



c 



• 



• 
• 

• 

• 
m 
m 



21610000 
21620000 
21630000 
21640000 
21650000 
21660000 
21670000 
21680000 
21690000 
21700000 
21710000 
21720000 
21730000 
21740000 
21750000 
21760000 
21770000 
21780000 

21790000 
21800000 
21810000 
21820000 
21830000 
21840000 
21850000 
21860000 
21870000 
21810000 

21890000 
21900000 
21910000 
21920000 
21930000 
21940000 
21950000 
21960000 
21970000 
21980000 
21990000 
22000000 
22010000 
22020000 
22030000 
22040000 
22050000 
..22060000 

22070000 
22080000 
22090000 
22100000 
22110000 
22120000 
22130000 
22140000 
22150000 
22160000 
22170000 



BFG 
T «• 

P + 

IF 



IF 



* P ♦ U 

MIN(SCANCHAR(« %« 



IF 



Lit 



T * 

STO 

PSl 
PTY 

GO 

END 

TO 



60 
STRl 

% AN A 
X PATT 

BEGIN 
DEFINE 
IF Sp 

8rs 

GO 
END 
IF PAR 



IN 
PJ P 

P ♦ 

SCANCHARC 
CHARCINSTCP.W3*P,C) » " 
BEGIN SYNTAXERRC8*P); 

GO TO return; 

end; 

CHAR<INSTCP.W3»P.C) * n 
BEGIN TEMP ♦ PI 
WHILE CHAR<INSTCP,W3#P, 
IF P 5 INSTSIZE THEN 

BEGIN SYNTAXERRC18#0 

GO TO RETURN! 

END* 
CHAR(INSTCP,W3#P.C) 

BEGIN SYNTAXERR(8*P) 

GO TO return; 
end; 
end else temp * p; 

IF EQf3#w0R0SC63,2,INST 
IF T+3 ■* TEMP THEN 

BEGIN STORECHARSC 
PSlZEtSP] ♦ 2; 

60 TO LI* 

END ELSE 
ELSE 

EQ(6*W0R0SC63,6>INST 
IF T*6 * TEMP THEN 

BEGIN STORECHARSC 
PSIZECSP3 * 21 

GO TO LI* 

END ELSE 

ELSE 
EOf7*W0RDSC63,5#INST 

IF T+7 * TEMP THEN 

BEGIN STORECHARSC 
PSIZECSP3 * 2; 
GO TO LI* 
END* 
ENTERST(TEMp-T#INSTE*3 
RECHARS(3*T*5); 
ZECSP] * 3* 

PEtSP3 ♦- 14; X IDENTIFI 
TO NEXT! 

; 

ERROR i 

% •»*•» ENCQUNTERED--TEST 
STERISK IS A STRING VAR 
ERN PART AND OUTSIDE OF 



IF 



IF 



< W »INSTCP.W3*P»C)» 
)"#INSTtP,W3#P.C))l 
<" THEN 



M THEN 
C) * * » DO P * P + II 



* ")" THEN 

; 



CT.Wl#T.C) THEN 
2,"»E W *6>* 

CT.W3*T,C> THEN 
2» H -R W »6}; 

CT.W3*T.C) THEN 
2# M »F W »6); 

#T*"INST") & M t"[30l42t63! 
ER— LABEL 



FOR STRING VARIABLE OR MULTIPLY. 
IABLE ASTERISK IFF I'T IS IN THE 
PARENTHESES. 



oummy«#; 

< 1 THEN 

in syntaxerr(2#p); 

to return; 

; 

ENCOUNT > THEN GO 



X UNRECOGNIZED CONSTRUCT IN STR REF 



TO op; 







m 



# 






22150000 
22190000 
22200000 

22210000 
22220000 

22230000 
22240000 
22250000 
222*0000 
22270000 
22280000 
22290000 
22300000 
22310000 
22320000 
22330000 
22340000 
22350000 
22360000 
22370000 
22380000 
22390000 
22400000 
22410000 
22420000 
22430000 
22440000 
22450000 
22460000 
22470000 
22480000 
22490000 
22500000 
22510000 

22520000 
22530000 
22540000 
22550000 
22560000 
22570000 
22580000 

22590000 
22600000 
22610000 
22620000 
22630000 
22640000 
22650000 
22660000 
22670000 
22680000 
22690000 
22700660 
22710000 
22720000 
22736600 
22740000 



IF 
IF 
IF 



IF 



M C M THEN 
! "*<" OF 



8A|_ STR VAR 



ARF AN6 NOT GT THEN GO TO OP; 

SVF THEN GO TO ENDSTRVAR; 

GT THEN 

BEGIN SYNTAXERR(3*P)J 

GO TO RETURN? 

END) 

CHARUNSTCP.WJ#P,C + 1) 

BEGIN PTYPECSP3 * 171 

PARENCOUNT * a 

P * P + 21 

END ELSE 

begin ptypecspi * 13; % «*» of arb or f/l str var 
p «. p + it 

END* 

Oi 

2* % FOR *N 

MKS; 



f 

i 

i 



* 
+ 



« 13 THEN % SIMPLE STR VAR 



THEN GO TO RETURN; 



PSIZFCSP3 
PTR * PTR 
P8ACKCSP3 
MKS 4, SPI 
SVF «. TRUE; 

go to next; 

end; 

ENOSTRVARl 
BEGIN 

IF I«-PTYPEtMKS3 
BEGIN 

IP NOT CDMBINESTRVARNAME(MKS) 
AA * M *1«J 
END ELSE 

if i * 17 then % balanced str var 

Begin 

if not combinestrvarnamecmks) then go to return; 

AA ♦ w *2 w ; 

END ELSE 
IF I s 8 THEN % FIXED-LENGTH VAR 

BEGIN PTYPECMKS] * 0; 

IF NOT CnMBlNEGROUP(MKS#FALSE) THEN GO TO RETURN; 

AA ♦ t, *3 w ; 

END ELSE 

% error— mks doesnt point to valid element 

go to error; 
ptr * ppointcmksj + psuecmks3; 

storecharS(?,aa»6); 

PSIZrtSP*MKS3 * PSIZECMKS3 ♦ Zi 
PTYPEISP3 * 5; % STR VAR — COMBINED 
P * P + i; % SKIP M * w 

svf * fixeolength * false; 
go to next; 
end; 
op I 

1 * char{instcp,w3,p,c>; 

IP 1 a »•*" THEN 

IF CHARUNSTCPtW3#P,C + l) « n *» 

THEN P * P + 1 % TWO START — EXPONENTIATION 
ELSE I «• W * M ; % ONE STAR — MULTIPLICATION 

PSTCSP3 «• II X FOR COMBINEARITHMETIC 

1.C6 * w . M ; 

PTYPEtSP3 * 7; 



* 

• 

* 



• 



• 
• 



• 



22750000 
22760000 
22770000 
22780000 
22790000 
22800000 
22810000 
22820000 
22830000 
22840000 
22850000 
22860000 
22870000 
22880000 
22890000 
22900000 
22910000 
22920000 
22930000 
22940000 
22950000 

22960000 
22970000 
22980000 
22990000 
23000000 
23010000 
23020000 
23030000 
23040000 
23050000 
23060000 
23070000 
23080000 
23090000 
23100000 
23110000 
23120000 
23130000 
23H0000 
23150000 
23160000 
23170000 

23180000 
23190000 

23200000 
23210000 
23220000 
23230000 

23240000 
23250000 
23260000 
23270000 
23280000 
23290000 
23300000 
23310000 



PBACKCSP] «- MKS; 

psizrtspj ♦. zi 

5T0RECHARSC?,I»6)J 

PTR ♦ PTR ♦ 2* % MAKE ROOM FOR STRING CONVERT <2 CHARS). 

p * p + i; 

qo to next; 
pareneKri 

syntaxerru2#p)j 
go to Return; 

ERROR* 

writeinst' 
syntaxerr<40»o>; 
writestack(sp)> 
60 To return; 

DlRl 

i * i; 

00 BEGIN P. f P ♦ U 

IF J «■ CHARUNSTCP.W3,P,C) * 

END UNTIL J / M S" AND J X " ' 
AA «• •»»-!" 8 It36U2l6]| 



m 



m 

m 



•; 



THEN I * I ■+ 1* 



% 
% 



'$», NO. OF INDIRECTIONS* "I* 



INDIRECTION 



VAR asterisk; 



IF 

IF 

IF 



SP«1 THEN IF PTYPEC03*9 
% STMT OF FORM <STRREF> 



STQRECHARSC3>AA#5); 

PTYPFCSP3 * 6; 
PSIZEESP3 * 2; 

go To next; 

MESFILt 

syntaxerr(38#0); 
comment missing str 

go to return; 
semicolon! 

OF (5 T M 

% IF INFORM THEN INFQRMQC29); 
IF SP > 1 THEN 6Q TO OMRk; 

ARE THEN IF NOT 6T THEN IF 

THEN ST0RECHARS<1»"«.«,7); 

NOT GTS THEN SlOC «■ PTR; 

NOT GTF THEN FLOC * PTR; 
TEMP * FLOC & SU0CJ24I36J12]; 
M0VEC4* TEMP, 4*C00EC MARKER tW3»MARKER,C+3); 
INSTNUM «■ INSTNUM * U 
MARKER * PTR; 

AA * & INSTNUMU2J36I123 & 9MARK [6 1 42163 ; 
ST0RECHARS(7#AA#i); 

ptr * ptr + t; 
GO to start; 
end; 
qmrk« 

parencount x then 

begin syntaxerr(18#0); 

comment parencount non-zero at end of instruction; 

60 to return; 

end; 

syf then go to mesfiu 
ptypecsp3 * psizecsp3 * 0; 
if not 6T then 

begin 

if not arf then if ptypec03x18 then if sp>1 
then go to condensepattern; 



m 



m 



# 



IF 



IF 



• * 



» «■ 



m 

€ 
C 



« 



23320000 
23330000 
23340000 
23350000 
23360000 
23370000 
23380000 
23390000 
23400000 
23410000 
23420000 
23430000 
23440000 
2 3450000 
23460000 

23470000 
23480000 
23490000 
23500000 
23510000 
23520000 
23530000 

23540000 
23550000 
23560000 
23570000 
23580000 
23590000 
23600000 
23610000 
23620000 
23630000 
23640000 
23650000 
23660000 
23670000 
23680000 
23690000 
23700000 
23710000 

23720000 
23730000 
23740000 
23750000 
23760000 
23770000 
23780000 
23790000 
23800000 
23810000 
23820000 
23830000 
23840000 
23850000 
23860000 
23870000 
23880000 



IF ARF.TH.CN IF NOT GT THEN IF PTYPEC03 * 9 

THEN SO TO condensereplacementi 

end; 



II * 0; 

PTR ♦ PPOINTCOi; 

sloc * floc *■ o; 

FOR I * STEP 1 



UNTIl. SP 00 IF PTYPECI3 * THEN 



BEGIN 

M0VE(PSlZEtn*CODECPP0lNTCn.W]>PP0lNTm.C#SCRATCHCn*W}*H.e>; 
IF PTYPFfll » 21 THEN % GO-TO PART--CHECK LfirS 



IF PTYPECI3 * 21 THEN 
IF I2*PSTtn - "S w 
IF 12 ■ "F" THEN FLOC 
IF 12 * "<" THEN 
BEGIN 
IF SLOC * THEN SLOC 

IF FLOC * THEN FLOC 
END ELSE GO TO ERROR* 

ii «■ ii ♦ psizecii; 

PTVPEtU * oi 

end; 
storechars( ii* scratched 3 #0 3; 
psizec03 * hi 

if p < in8tsize then 

lEGIN Sp ♦. 1; 

go to semicolon! 

end; 

not gts then sloc 

not gtf then floc 



X GO-TO PART--CHECK LOCS 
THEN SLOC * PTR + I1 ELSE 
«■ PTR+I1 ELSE 



€ 
C 



PTR 
PTR 



Ii; 
Ii; 



# 



IF 
IF 



ptr; 
ptr; 



RETURN! 



mv(2, sloc* 6, codec marker, wl» marker. c + 3); 
mv(2,floc*6*c0deemarker,wj*marker.c+5); 
mv(1*firstchar»7* codec marker, w j, marker tc + 7)l 
if inform then writeinst; 
end compile; 

x********compile*********** ***************************** **************** 
X********C0NTROLPARAMfTER* ******** ************************************** 
INTEGER PROCEDURE CONTRDLPARAMETERC A*P ) ; 

ALPHA ARRAY AC*3I 

INTEGER PI 
BEGIN OFFINE OUMMY **; 

11 * p; 

WHILE CHAR(AC*3,I1) > 9 AND II < 64 DO 
P * III 

WHILE CHAR(AC*],P) S 9 AND P < 64 DO P * P + 
IF II £ P THEN II * -1 ELSE 

READCAC*3»FNUM*I1*P-I1*H)| 
CONTROLPARAMETER * III 
END CONTROLPARAMETERI 

X********C0NTR0LPARA METER***************************** 
X********CONVFRT**************************************~ -- '""--»-••- 
X THIS ROUTINE OOES A CHARACTER-SET CONVERT* AND (IF CONVERTSTRINGS 
X IS TRUE) A CONVERSION OF I/O STRING NAMES, IT IS CURRENTLY SET 
X TO CONVERT FROM CDC 3600 SNOBOL (AS IMPLEMENTED AT THE UNIV. 8F 
X WISCONSIN) TO B5500 SNOBOL, USERS AT OTHER INSTALLATIONS WILL 
X PROBABLY WANT TO WRITE THEIR OWN ROUTINE* TO CONVERT FROM A 
X LOCAL VERSION OF SNOBOL TO 85500 SNOBOL, 
PROCEDURE CONVERT(A); 



« 

€ 



11 * 11 * 1; 
1; 



******************** 
****************** 






€ 



• 



• 



# 






23890000 
23900000 
23910000 
23920000 
23930000 
23940000 
23950000 
23960000 

23970000 
23980000 
23990000 
24000000 
24010000 
24020000 
24030000 
24040000 
24050000 
24060000 
24070000 
24080000 
24090000 
24100000 
24U0000 
24120000 
24130000 
24140000 
24150000 
24160000 
24170000 
24180000 
24190000 
24200000 
24210000 
24220000 
24230000 
24240000 
24250000 
24260000 
24270000 
24280000 
24290000 
24300000 
24310000 
24 320000 
24330000 
24340000 
24350600 
24360000 
24370000 
24380000 
24390000 
24400000 

24410666 
24420000 
24430000 
24440000 
24450000 



» CCI*23#» 

,,,, .,> - cci+5i#; 

STEP 1 UNTIL 79 DO CCU); 



THEN 






02 
02 



"J 03 

THEN 
X 

"A"! 03 

X 

m n w ; 03 



THEN 
M K"! 



SYSPIT 

* "D*; 

SYSPPT 

*• w c H ; 



04 * 05 * 

I READ 

04 * 05 * 
I PUNCH 
04 * m h w ; 



X SYSlOK : LOOK 



D5 * 



«} 



ALPHA ARRAY AEOi; 
BEGIN INTEGER U 
ALPHA APRAY §C0t79J! 
DEFINE * CU3## Dl u Ctl*11#» 02 

03 ■ CtI+33*, D4 • Cfl*43*# 05 * 
REAO(Af*3,F80Al#FOR I * 
IF CONVfRTSTRINGS THEN 
FOR I * 1 STEP 1 UNTIL FIELDSIZE*6 DO 
IF D * "S w AND Dl * "Y" AND D2 * W S" 
IF 03 ■ "L M AND 04 s "O w AND D5 
BEGIN D * "L"* 01 * "0 W J 02 
END ELSE IF 03 » H P" AND 05 « 
IF 04 ■ M I" THEN 

BEGIN D * W R M ; 01 * M E W ) 
END FLSE IF 04 * «P« THEN 

BEGIN D * *p m ; 01 ♦ M u M ; 

END! 
FOR 1*0 STEP 1 UNTIL. 79 DO 

CCU * CONVERTVALlCUnj 
WRITE(At*3#F80Al*FOR 1*0 STEP 1 UNTIL 79 00 CIIDJ 
END CONVERT! 

X*****f**#CQNVERT*** ********************************* ******************** 
X********CREATFLlBRARY******************************************* ******* 
PROCEDURE CREATELIBRARY(MFlD#FID)i 
VALUE MFID* FlDf 
ALPHA MFID» Fin; 
BEGIN INTEGER T* J* 

Alpha array xcoi53J 

save file lt8e disk serial t20*2003 ( 15,6,60* save 15); 

X 

FILL LIBE WITH MFIO* FIO! 

WRI TE(L I BE#FLI80*ENTIERC VERSION))! 

WRITECLI8E»FLIB1#SCATTERN0,MAXINSTSIZE# 

CPULIMITFXISTS^CPULIMIT* 

I0LIMITEXISTS#I0LIMIT# 

RULELIMITEXISTS,RULELIMIT)! 
WRITE(LIBE#FLIB2»ENTRY#F0R 1*0 STEP 1 UNTIL 15 DO USEOST 1 13 * INSTNUM )i 
WRITE(LI6E#FLIB3*F0R 1*0 STEP 1 UNTIL 15 DO NEXTCELLt 1 1 ) I 
FOR I * STEP 1 UNTIL 15 DO 
IF USE03T.CI1 THEN 

STEP 2 UNTIL 254 DO 




FOR I * STEP 1 WHILE USEDR0WCI3 DO 
FOR J * STEP 6 UNTIL DPNTRM3,W00 
BEGIN MQVEWDSC6»0ATAi:i#j3,Xr*3)J 
WRITECLIBE'6»XC*3)J 

ENOJ 
L0CK(LIBE#SAVE)I 
END CREATELIBRARY1 



END CREATELIBRARYl 

X ******** C R E A T EL IS R * ^ Y ************************************************* * 
X********DATE******************************* ***************** * * ********* 
ALPHA PROCEDURF DATE! 



ALPHA PROCEDURE DATE* 

BEGIN X PRODUCES DATE IN FORM* 

X MM/DO/YY 






• 



24460000 
24470000 
24480000 
24490000 
24300000 
24510000 

24520000 
24530000 
24540000 
24550000 
24560000 
24570000 
24310000 
24590000 
24600000 
24610000 
24620000 
24630000 
24640000 
24650000 
24660000 
24670000 
24680000 
24690000 
24700000 
24710000 
24720000 
247 30000 
24740000 
24750000 
24760000 
24770000 
24780000 
24790000 
24800000 
24810000 
24820000 
24830000 
24840000 
24850000 
24860000 
24870000 
24880000 
24890000 
24900000 
24910000 
24920000 
24930000 
24940000 
24950000 

24960000 

2497Q00Q 
24980000 
24990000 
25000000 
25010000 
25020000 



ALPHA X) 

INTEGER 0* M* y; 

STREAM PROCEDURE ALPHAOATE(D*M* Y*W ) ; 
VALUE D. M* Yl 



BEGIN 01 
SI ♦ LOC 
SI * LOC 
SI * LOC 



* w; 

Ml OS 
01. .DS 

y; os 



2 

2 
2 



dec; 

dec; 
dec; 



ds 
os 



LIT 
LIT 



v w ; 



end alphadate; 



♦ X 



* timeco); 

* 10 x X. 1 18*63 

* 100 x X*['3G'I6) 

* o; 

WHILE X > 00 

BEGIN M *• M .-.♦ i; 
X * X • MONTHSEM]) 

end; 

* X + MONTHSrMi; 
ALPHADATE(D*M*Y*X); 
DATE * XJ 
ENO OATEl 



C24»6]; 
+ 10 x X.C36563 + X, £42163; 



fc'VU unit' 

%*******#DATE***************************************************** 
X******#*DE8UG******+********************************************* 
X THIS IS THE CENTRAL CONTROL ROUTINE FOR THE INTERACTIVE 
% DEBUGGING TOOLt 

procedure desugcreturnlabed; 

value returnlabel; 

label Returnlabel; 

begin integer t# j' k» l* saveuser; 

boolean newinst; 

DEFINE NUMCOMMANDSs 7 #; 

ALPHA ARRAY COMMANDS* NUMCQMMANQS J ; 

SWITCH FORMAT FDBUG ♦ 

( W <^STATEMENT *Vl>**W)# 

("S^"*!**" STATEMENTS EXECUTED*")* 

("S^LAST LABELI "*X*»"* M )* 

("$?'AT LABEL? W »X** M * M )* 

("S/TYPE REQUESTS., .S/*")* 

( W S/LEVEL b w *I*» m S/*")# 

C M <*«*X*»" NOT DEFINEOS/*")* 

t n 4*»*%*$ m NOT IN USES/**)* 

( M S*UNREC06NIZE0 COMMANDS/*" )* 

< M S*OKS/*")* 

("S/^X*," EXECUTED "*I** M TIMESS/*"}* 

C"<:/TOO MANY LABELS.*/*")* 
("S/SUSPENOEDS/*")* 

("S//EN0 FORMAT-"FDBUGS//*"*(Q)); 
SWITCH FORMAT FSUSPENOREASON * 

("S^SUSPEND CALLED*/*")* 
("S/RULE LIMIT HJT</*"), 

("</LABEL LIMIT HIT***"}* 

("S/FATAL ERRORS/*")* 

( M </END FMT— FSUSRSNS***); 
LABEL 

6ETC0MMAN6* 



* * * * * 
***** 



%00 
101 
%02 
X03 
X04 
X05 
%06 
*07 
%08 
%09 
X10 
Xll 
%12 
*13 



xoo 

»01 

%02 
*03 



i 

1 






G 



• 



m 
m 



m 
m 



25030000 
25040000 
25050000 
25060000 
25070000 
25080000 
25090000 
25100000 
25U0000 
25120000 
25130000 
25140000 
25150000 
25160000 
25170000 
25180000 
25190000 
25200000 
25210000 
25220000 
25230000 

25240000 
25250000 
25260000 
25270000 
25280000 
25290000 
25300000 
25310000 
25320000 
25330000 
25340000 
25350000 
25360000 
25370000 
25380000 
25390000 
25400000 
25410000 
25420000 
25430000 
25440000 
25450000 
25460000 
25470000 
25480000 
25490000 
25500000 
25510000 
25520000 
25530000 
25540000 
25550000 
25560000 
25570000 
25580000 
25590000 



GET1, 
FAR, 
ILLEGAL* 
RESUME* 

runloop; 

saveuser * user; 
user * mainuser; 
newinst * false) 
debugging * . true* 
fill c0mmande*3 with 

■ "ENO".*. ■' ■ 
«TYP|r», 

»SET«Y 
"RUN"* 
"LABEL"* 

h ab6rt% 

"WHERE"* 
"WHY"* 

Oj 

WRITE(DCWRlTEt*]*FDBUGU33); 

IF output then; 

GETCOMMANDJ 

IF NOT INPUT THEN GO TO FAIL; 
GETU 

mv(l#arrow*7*dcreaoedcsize.w3*ocsize,c); 
% if inform then writec print* 10#dcrea0e *3 ) ; 
if char(ocreade*j»0) * "-" then % control caroj 
Begin instsize * dcsize; 

MV(3»STOPPER*5*OCREADtOCSlZE,W3*OCSlZE.C); 

processcontrolcaro<dcreaoe*3); 

Mv(3*CRLF*5*DCWRITEE*3*0); 

if output then* 
go to getcommano; 

end; 
i * skipchar( w m *dcrea0e*3*0); 

% edit routines go here sometime*,, 

si <* I ♦ SCANCHARC" "*"*"#DCREADE *3 * I ); 
AA * 01 

IF J-I > 5 THEN GO TO ILLEGAL' 
MVCJ-I*0CREAD£*]#I»AA*8*J+I>; 
FOR I * NUMCOMMANDS STEP -1 UNTIL DO 
IF AA * C0MMANDEI3 THEN CASE I OF 

BEGIN % CODE FOR VARIOUS COMMANDS! 
X***** ********************************** 

% Ot END* 

begin result * true; 
go to enoterpret; 
end; .. . 

% It TYPE <NAME>* 
BEGIN 

if ua*$earchstu*cdcsize-j-1)*0creade*3»j + 1* m symb , m) < 
begin write(dcwritee*3*fd8uge73#i«.minci*63)); 
mv(i#0crfade*]»j+1*dcwritee*3*2); 
if output then! 
go to getcommand; 
end; 



€ 

C 

i 
« 

i 

i 

€ 



THEN 



« 






25600000 
25610000 
25620000 
25630000 
25660000 
25650000 
25660000 
25670000 
25680000 
25690000 
25700000 
25710000 
25720000 
25730000 
25740000 
25750000 
25760000 
25770000 
25780000 
25790000 
25800000 
25810000 
25820000 
25830000 
25840000 
25850000 
25860000 
25870000 
25880000 
25890000 
25900000 
25910000 

25920000 
25930000 
25940000 
25950000 
25960000 
25970000 
25980000 
25990000 
26000000 
26010000 
26020000 
26030000 
26040000 
26050000 
26060000 
26070000 
26080000 
26090000 
26100000 
26110000 
26120000 
26130000 
26140000 
26150000 
26160000 



AB * NAMPCAA3J 
AC * VAIUCAA3* 
H.RITEC0CWRITEC*3#F0BUGC113#I«.MIN(I»63))* 

MVCI,DCREADC*3»J+i*DCWRITEC*3*2); 

f '■'<»'" T ♦ fil k f AC i PWJ 

MVCJ*MlN(70-I»t*AC 1 S)*FlRSTCHARCAC)#DCWRITEtl,W]#I t C); 

MV(1»ARR0H#7*DCWRITC[(I+J),W3»(I*J),C); 

WHILE I ♦ J i 70 00 

BEGIN IF NOT OUTPUT THEN GO TO GETCOMMAND; 

K <+ K ♦ JJ 

L *- L * JJ 

Mv(I«-2*CRLF#5»DCWRlTEt*3fO); 

MOVEf J«'MlN(70»I,L)*DATACAC»R»K,W3jiK i C»DCWRITEC*3#2); 

end; 
mvc1»qu0te#7»dcwriteccim*j>.wj,i.c>* 
mv(3,crlf»5,0cwriteei,w3#i.c+i)i 
if output then; 
go to getcommand; 
end type; 
* 2! set <name>* <value>* 

BEGIN 

AA * ENTERST<DCSIZE-J-1>DCREAD[*3#J*1> W SYMB W ); 

MVC3,CRLF>5»DCWRITEC*3>0); IF OUTPUT THEN; 

IF NOT INPUT THEN GO TO FAR; 

AB * STRINGeDCSIZE,AA); 

IF DEATH THEN GO TQ ENQTERPRET; 

M0VEcDeSlZE»DCREADt*3>0*FIRSTCHAR<AB)); 

VALU[AA1.L0C * AB; 

MV(3,CRLF#5#DCWRlTEt*3#0); IF OUTPUT THEN; 

GO TO getcommand; 
end set; 
x 31 run <limit> from <labeu> to <uabel> <label> <label> ,.#* 

BEGIN 

ii * nlabellimit; % 

NLABELLIMIT «■ -U X 
OEBUGRULELIMITEXISTS 

RUNLOOPl 

J «• J ♦ SKIPCHARC W M *0CREA0CU.W3*4,C); 

IF 12 * CHAR(DCREADU,W3f J.C) * "*" THEN GO TO RESUME; 
IF 12 S 9 THEN % <INTEGER> 
BEGIN 

if oebugrulelimitexists then x two of them—error 
begin write(dcwritec*3#feh,qmark); 
if output then; 
GO TO getcommand; 



i 
i 
i 

i 

f 

€ 



SAVE IN CASE OF M T0«- M . 
•1 MEANS NO TO-PART FOUND 
* NEWINST * FALSE; 



YET, 



€ 

€ 

€ 

c 



I 

DO 



end; 
• o; 

BEGIN 
J *• J 



IF 



% FOR BUILDING LIMIT 

I * 1*10 ♦ 12; 

♦ i; 

END UNTIL I2*CHAR(DCREADEJ.W3»J.C) 
OEBUGRULELIMITEXISTS * TRUE; 
DE8UGRULELIMIT * RULESC03 ♦ II 
GO TO RUNLOOPl 

end; 

<i«-mnemn0u#0crea0c*3>j)) * i then 

begin x from <label> 

if newinst then x two of them— error 



m 
m 



> 9; 






• 



26170000 
26180000 
26190000 
26200000 
26210000 
26220000 
26230000 
26240000 
26250000 
26260000 
26270000 
26280000 
26290000 
26300000 
26310000 
26320000 
26330000 
26340000 
26350000 
26360000 
26370000 
26380000 
26390000 
26400000 
26410000 
26420000 
26430000 
26440000 
26450000 
26460000 
26470000 
26480000 
26490000 
26500000 
26510000 
26520000 
26530000 
26540000 
26550000 
26560000 
26570000 

26580000 
26590000 
26600000 
26610000 
26620000 
26630000 
26640000 
26650000 
26660000 
26670000 
26680000 
26690000 
26700000 
26710000 
26720000 
26730000 



IF 



J 
I 



BEGIN WRITE(OCWRlTEt*]*FEH,QMARK)l 

if output then; 

60 TO getcommand; 

end; 

■ j ♦ skipcharc ",dcreadu t w]»j.c); 

- scancharc" »,"*»%0creadt j, n]# j,c ) j 



IF I <5 THEN GO TO ILLEGAL; 

AA «■ SEARCH3TCI*0CREADC*J#J#"XN3T")J 

IF (AB*VALUtAA3),S < 9 THEN % NO SUCH LABEL* 

BEGIN WRITE(DCWRlTEC*]*F0BU6t6]#K«-MINC63»I)); 

MV(K»OCREAOtJ i Wl#J,C»OCWRITEC*3#2); 

if output then; 
go to getcommand; 

eno; 
nfwinst *> true* 
p.sTcoi ..* aa; 

J *" J ♦ 11 

go to runloop; 
end; 

I * 2 

BFGIN 
J «• J 



€ 
i 
i 
4 
4 
4 
4 
4 



THEN 

% TO <LABEL> <LABEL> <LABEL> .»,* 

+ SKIPCHAR(« M ,DCREA0CJ.WJ#J,O; 



IF CHAR(DCREADCJ,W3#J,C> « "♦« THEN 

BEGIN % TO* (SAME LIMITS aS LAST TIME) 

nlabellimit «. Ill 

go to resume; 
end; 
00 begin % find labels* 

i «■ scancharc" % w «-%ocreaoc j. w3 * j, c ); 

if i > then x label found 

BEGIN 

if cnla8ellimit*nlabellimit+1) > maylabelllmit then 
begin % too many labels* 

writecdcwritec*3*fdbugu23); 
if output then; 
60 to getcommand; 
end; 
if labellimitcnlabelumlt3«-searchstci,dcreaoe*3#g,"inst") 
5 then % no such label* 
begin writecdcwritet*3,fdbugc6 3,k*minc63,i)}; 

MV<KjDCREADtsi.W3*J.C,DCWRlTEC*3#2); 

if output then; 
go to getcommand; 
end; 
j 4, j + i + skipchar(" m *dcreadc(j+i),w3*(j*ntc>; 

end; 

END UNTIL CHAR(0CREA0Cvl«W3*J,C) « w * w ; 

go to resume; 

end; 
% fall through* invallo delimiter* 
go to illegal; 

END RUN; 

41 LABEL <LA8EL>* 

BEGIN 

IF CAA«-SEARCH5TCI*<DCSIZE-J'1)#DCREADE*3#J*1# M INST")) $ 
THEN WRITECDCWRITEC*3,FDBUGC6J»I*MINU*63)) 

ELSE WRITE(DCWRITE[*3,FDBUGC10 3#I«-MINCI»63), 



• - * 



£1 

• 



• 






26740000 
26750000 
26760000 
26770000 
26780000 
26790000 
26800000 
26810000 
26820000 
26830000 
26840000 
26850000 
26860000 
26870000 
26880000 
26890000 
26900000 
26910000 

26920000 
26930000 

26940000 
26950000 
26960000 
26970000 
26980000 
26990000 
27000000 
27010000 
27020000 
27030000 
27040000 
27050000 
27060000 
27070000 
27080000 
27090000 
27100000 
27H0000 
27120000 
27130000 
27140000 
27150000 
2^160000 
27170000 
27180000 
27190000 
27200000 
27210000 
27220000 
27230000 
27240000 
27250000 
27260000 
27270000 
27280000 
27290000 
27300000 



DI6ITS(K*VAl.UCAA3 # UNK)*K)J 

mvci*dcreadc*3#j*1#dcwritec*3>2); 
if output then; 
go to getcommand; 

END LABELS 
51 ABORT * 

begin result * false; 
go to endterpret; 
eno. abort; 
6» WHfRE* gives place of suspension, 

BEGIN 

X TYPE STATEMENT NUMBER* 

WRITE(DCWRlTEt*3*F08UG[03#DIGlTS(lNSTNO)*INSTNO); 

IF NOT OUTPUT THEN GO TO GETCOMMAND; 

% TYPE NUMBER OF RULES EXECUTED. 

WRITFf DCWRITEC *3>FDBUG[n> DIGITS* RULEStO 3 )# RULES! 3); 

IF NOT OUTPUT THEN GO TO GETCOMMAND; 

% LAST LABEL! 

AA * NAMECENTRY3; 

J ♦ MIN(AA,S>63); 

if instruct > or nearpoint > 9 then 

begin write<dcwritec*3*fdbugC23#J); 

t «• u; 

end else 

begin writecdcwritec*3#fdbugC33#j>; 

i * 12; 

end; 
(j,firstchar(aa),dcwritec*3m); 

not output then go to getcommand; 
type leveli 
ite< dcwritec* 3 #fdbugc53#0igits< level). level); 

output then; 

to getcommand; 

O; 

WHY* GIVES REASONS FOR SUSPENSION, 

* step i until maxsuspendreason do 

suspendreas0nei3 then 

begin write(0cwritec*3#fsuspendreas0n£i3>; 

if not output then go to getcommano; 

end; 

GETCOMMAND; 



1 

i 



MV 

IF 

% 

WR 

IF 

GO 

EN 

7t 

BE 
FO 



GIN 

R I 

IF 



GO TO 

end; 

end command cases; 

ILLEGAL? 

WRITECDCWRITEC*3#FdBUGC83); 

if output then; 
go to getcommand; 

FAIL I 

if input then go to getu 
debugrulelimitexists <• false; 

RESUMES 

WRITE(DCWRITEC*3*FDBUGC93); 
IF OUTPUT then; 

setlimitflag; 
user * saveuser; 



m 
m 



m 
m 






27310000 
27320000 
27330000 
27340000 
27350000 
27360000 
27370000 
27380000 
27390000 
27400000 
27410000 
27420000 
27430000 
27440000 
27450000 
27460000 
27470000 
27480000 
27490000 
27500000 
27510000 
27520000 
27530000 
27540000 
27550000 
27560000 

27570000 
27580000 

27590000 
27600000 
276J0000 
27620000 
27630000 
27640000 
27650000 
27660000 
27670000 
27680000 
27690000 
27700000 
27710000 
27720000 
27730000 

27740000 
27750000 
27760000 
27770000 
27780000 
27790000 
27800000 
27810000 
27820000 

27830000 
27840000 

27850000 
27860000 
27870000 



for ?. «• o step i until maxsuspendreason do suspendreasoncii * false; 

IF NFWINST THEN GO TO RETURNLABEL* 
AA * PSTttlJ 

* aa contains the symbol table address of the next inst* 
eno oebug; 

%********DEBU6*********************** *************** ******************** 
%*#**#***Oj(;jTS********************* *********** ************************* 
INTEGER PROCEDURE DIGlTS(N); 
VALUE NJ 

real n; 
begin integer 6 j 
o «• if n > o then o else i; 
n * entiercabscnh; 

WHILE N > DO 

BEGIN D * ♦ 1* 

n * entieRcn oiv io); 

end; 
digits * d; 
end digits; 

X********0IGITS********************************************************* 

x******#*fnterst******************************** ************************ 

% rwYrBsTfN.I .P.Y} SEARCHFS THF SYMBOL TARI F FOR THF OBJECT OF 









alpha procedure enterst(n,l#p*x); 

VALUE N, P» X; 
INTEGER N» P; 
ALPHA ARRAY LC03; 
ALPHA X; 
BEGIN ALPHA J, Ki 
INTEGER If Y> M, XTEST; 
LABEL POUND, FAIL* RETURN, CREATE; 

DEFINE STWQRD * (IF BOOLEAN(Y) THEN VALUCI3 ELSE NAMCCI3)#* 
X 

XTEST * IF X » *SYMB W THEN ELSE 

THEN 1 ELSE 
THEN 2 ELSE 
THEN 3 ELSE 0; 

y * if x * "lit" then 1 else oi 
i * scatter(n,l»p#x>; 
while true do 

% if you 0ont understand this* you arent necessarily stupid* 
begin if clf n * (k * stword)»s 
then false 

else equalcn,lcp.wj»p«c*firstchar(k>)) 
then if (if n s then ok.loc * 0) else true) 

THEN IF (IF X * "LIT" 
THEN NAMECH 
ELSE KJ.TYPE * XTEST 
THEN GO TO FOUND; 
IF X » "LIT" THEN K * NAMECM* 
IF K.LINK * THEN GO TO CREATE; 



► IF 

IF 

IF 

IF 

X * 



X » "SYMB" 
X * "LIT" 
X ■ "FCT" 
X * "INST" 
♦♦LIT" THEN 



• 7* * 



m 
m 
m 
m 



# 



£7880000 
27890000 
27900000 
279J0000 
27920000 
27930000 
27940000 
27950000 
27960000 
27970000 
27980000 
27990000 
28000000 
28010000 

28020000 
28030000 
28040000 
28050000 
28060000 
28070000 
28080000 
28090000 
28100000 
28110000 
28120000 
28130000 
28140000 
28150000 
28160000 
28170000 
28180000 
28190000 
28200000 
28210000 
28220000 
28230000 

28240000 
28250000 
28260000 
28270000 
28280000 
28290000 
28300000 
28310000 
28320000 
28330000 
28340000 
28350000 
28360000 
28370600 
28380000 
28390000 
28400000 
28410000 

28420000 
28430000 
28440000 



I * K.LINK) 

end; 

CREATE* 

BEGIN DEFINE DUMMY*** 
J ■*> STRING(N#0>) 

M0VECN#LCP»W3>P.C»FIRSTCHARCJ>); 
IF STWORO.tOC * THEN 

BEGIN M * NEWCEUCI,3TR)J 

IF DEATH THEN GO TO FAIL* 

NAMECI3.LINK * I * MJ 

END) 
NAMEtU * IF 800UEANCY) THEN 1 ELSE J* 
VALUfll * IF BOOIEANCY) THEN J ELSE 1) 
M * J.CH - 2) 

MV<2#!*6#DATAUfR>M f VO#M,C5* 
NAMEfll.TYPF * XTEST) 
IF X » "FCT" THEN 

BEGIN 

K * INTRINSICCL»P#N>; 

IF K * THEN VALUCU «• 1 & K CLINK) 

END) 
IF TRACEALL THEN 

BFGIN VALUCI3.I0USE * CIF 

mm «• & 2 CIOTYPE & 3 
& (IF X* W FCT» THEN 

END) 

TO FOUND) 



X*"FCT° THEN 3 ELSE 1)) 
CFILNO 
ELSE 1) CIOUSE) 



GO 
END) 
FAIL: 

MESSAGE0C14)) 

MESSAGETT0(14)) 

I * -1) 

FOUND* ENTERST * I) 

RETURN* 

END ENTERST) 

%********£NTER5T******************** ********* *************************** 

%********FINDUSERS********************* ********************************* 
PROCEDURE FINDUSERS; 
BEGIN INTEGER T. J) 

ARRAY XtOI2xTTMAX3) 

ST1# ST2) 



ALPHA 
ALPHA 
% 

STl * 

ST2 ♦ 



STATCUSER3, C9J93) 
STAT[MAlNUSER3»t9S9]) 
NUMUSERS ♦• STATUS(XC*3) / 2) 
FOR I * NUMUSERS-1 STgP «1 UNTIL DO 
BEGIN J <• I x 2) 
STATU3 * XtJ3) 



IF 



IF 



I0CI3 
END) 
ST2 * 
BEGIN 
FOR I 
IF 

END) 
STl i 

BEGIN 



* XCJ+11) 

STATCMAINUSER3.C9I93 THEN 
MAINUSER * 0) 
+ NUMUSERS»1 STEP -1 
STATtI3*I9l9] m ST2 



UNTIL DO 
THEN MAINUSER 



* I) 



STaTCIJSER3.C9»93 
USER * -1) 



THEN 







# 



m 



28450000 
28460000 

28470000 
28480000 
28490000 
28500000 
28510000 
28520000 
28530000 
28140000 
28550000 
28560000 
28570000 
28580000 
28590000 
28600000 
28610000 
28620000 
28630000 
28640000 
28650000 
28660000 
28670000 
28680000 
28690000 
28700000 
28710000 
28720000 
28730000 
28740000 
28750000 
28760000 
28770000 
28780000 
28790000 
28800000 
28810000 
28820000 
28830000 
28840000 
28850000 
28860000 
28870000 
28880000 
28890000 
28900000 
28910000 

28920000 
289 30000 
28940000 
28950000 
28960000 
28970000 
28980000 
28990000 
29000000 
29010000 



STEP 1 WHILE USER < 
* STATCI3.C9J9] THEN 

THEN USER ♦• MAINuSE 



FOR I * 
IF ST1 

IF USER < 

END! 

oatacomf <- numusers > 0; 
end findusers; 

X********F I NDUSERS ********** ****** 
*********GArBa6E COtl.EC TOR** ****** 
PROCEDURE garbagecollector; 

% 

BEGIN INTEGER I *K#M*MAX#P* RQWS*ST* TOT AU 

REAL TIMECP* TIMEIO; 

ALPHA J) 

INTEGER ARRAY NEWPNTRfO JDATASlZE 3 i 

LABEL L; 
% 

TIMECP * TIMEC2)! TIMEIO ♦ TIME<3)J 
IF INFORM THEN 

BEGIN 
WRITECPRINT»FGC)J 

WRlTpTlMECO*0)i 

CHECkSYMBTABL* 

END) 

FREE STRINGS ATTACHED 



AND I < NUMUSERS DO 
USER * II 
Rl 



************************************** 
************************************** 



1 

i 
t 
i 



TO 



CELLS 
DQ I 



ON AVAILABLE SPACE LISTS* 
F USEDSTH3 THEN 



% 

FOR I * STEP 1 UNTIL STRMaX 

BEGIN K * NEXTCELLtni 

WHILE K * DO 

begin nameckuloc * valuckI * o; 

K ♦ NAMEfKJ.LlNKl 

end; 

END) 
% CHECK FOR CELLS HELD A LONG TIME* THEN DISCARDED* 
IF GCS.C * THEN 

FILL N0TM0VEDt*3 WITH 



0*0*0*0*0 
0*0*0*0*0 
MAX * TOTAL * ROWS * 0) 
IF NOT DEATH THEN 

FOR I * STEP 1 UNTIL DATASIZE DO 
IF USEDROWtTl THEN 
BEGIN 

ROWS * ROWS + 1) 
MV(l*QMARK*7*DATAtI*DPNTRU3 
P * NEWPNTRtU ♦ NOTMOVEOCU 
Ll P ♦ P + SCANCHAR(QMARK*QM 
IF P < DPNTRtU THEN 

BEGIN MV(2*DATAtI*P,W]*P, 
FOR K * 1*0 DO 

BEGIN 

J * IF BOOLEANCK) THEN 

IF J.CH * P+3 THEN 
IF J,R m I THEN IF J.C 
BEGIN M * J t CH - 3) 

M0VECJ.S + 3*DATAn*M 
DATAtI*NEWPNTRCl 

IF BOOLEAN(K) 

THEN VALUCST3.CH 
ELSE NAMEtSTl.CH 



#0*0*0*0*0*0*0 #0*0*0 #0* 
»0*0*0*0*0*0*0*0*0*0 #01 



.W3*DPNTRtU,C)J 

i 

ARK*DATACI*P.W3*P,C)I 
C+1*ST*6)I 



VALUCSTJ ELSE NAMEEST3) 

H«3 > NEWPNTRtU THEN 

,W3#M f C* 
3.W3*NEWPNTRtn»C)l 

* NEWPNTRtU + 3 

* NEWPNTRtU + 31 



«• * 



* * % 



m 



• 

• 



29020000 
29030000 
29040000 
29050000 
29060000 
29070000 
29080000 
29090000 
29100000 
29110000 
29120000 
29U0000 
29140000 
29150000 
29160000 
29170000 
29180000 
29190000 
29200000 
29210000 
29220000 
29230000 
29240000 
29250000 
29260000 
29270000 
29280000 
29290000 
29300000 
29310000 
29320000 
29330000 
29340000 
29350000 
29360000 

29370000 
29380000 
29390000 
29400000 
29410000 
29420000 
29430000 
29440000 
29450000 
29460000 

29470000 
29480000 
29490000 
29500000 
29510000 
29520000 
29530000 
29540000 
29550000 
29560000 
29570000 
29580000 



* NEWPNTRU3 + J#S ♦ 31 



NEHPNTRCI3 

P * P + J.S + 3; 

GO TO It 

END ELSE 

BEGIN P * P + j, 3 ♦ 31 

NOTMOVEOtn «• NEWPNTREI 

GO TO U 

END* 

end; 
p * p * ii 60 to li 

END* 
IF 8184 - (DPNTRCIJ * NEWPNTRU3 
MAX ♦ 8184 - DPNTRtlj; 

total * total ♦ 8184 - opntrcii* 
end* 
if max < 1000 or total < 2000 then 

BEGIN I ♦■ 0* 

while usedr0wu3 and i < dataslze 

usedr0wci3 * true! 

end; 
checksymbtabl* 
if inform then 

BEGIN 

writetime(0*0>; 

wr itec pr int, fgcres, rows* max* total); 

end; 

GCS * GcS + i; 

gctimecp «■ g6timecp + ( time( 2 }-t imecp ) 
gctimeio ♦ gctimeio * ctimec 3)-tlmel0) 
end garbagecollector; 
%********garbage collector************ 

%********! NO I RFCT********************* 
% INDIRFCTCSP) INDIRECTS ON THE STRING 

* LEAVES THE RESULT IN THE SAME STACK 

* CALLED BY VARIOUS INTRINSIC FUNCTION 

X THEIR PARAMETERS AS STRING NAMESt 
PROCEDURE iNfSlRECTCSP); 
VALUE SPI INTEGER SPI 
BEGIN ALPHA AA, ABl 

% if inform then inf0rm0c19); 

aa * pstcspj; 

ab * valucaai; 

pstcsp3 * enterstca8is#0atatab,r**3»ab 

pnamecsp3 «■ true! 

end indirect; 

%********! ndIRfCT********************* 

x********inform*********************** 
% the following procedures are called 
% informative messages, the procedur 
*' followed by a string of "i«*s or m a 
% format the parameters will be writt 
% gives the subscript to a switch for 

% 

PROCEDURE INFORMOCI); 
VALUE I; INTEGER U 

begin switch format nfrmo * 
(x80, m scansuccess w ), 



3 * p; 



) > MAX THEN 



i 

i 
t 

i 



o i <• i ♦ i; 



/60; 
/60; 

********************************** 
********************************** 

NAMED BY STACKU3* AND 
LOCATION, THIS ROUTINE IS 
S THAT NEED TO INTERPRET 



€ 

m 
* 



,CH,*SYM8"); 



********************************** 
********************************** 

ONLY TO OUTPUT CERTAIN 
E NAMES CONSIST OF "INFORM" 
M «S# TELLING WHAT SORT OF 
EN OUT AS, THE FIRST PARAMETER 
MAT. 



XOO 



# 






29590000 (X80, "ASSIGNMENT OF STRING VARIABLES")* 

29600000 (X80»"DELETE PATTERN")* 

29610000 (X80,"RRETURN")* 

29620000 (X80, "INSTRUCTION FAILED")* 

29630000 (X80*"START OF DEFINE SEGMENT")* 

29640000 (X80*"END Of DEFINE SEGMENT")* 

29650000 (X80,"RETURNTEMPS M )* 

29660000 (X88*"SCAN FAILED")* 

29670000 (/"**ILLEGAL ARGUMENT TO .S")» 

29680000 (//"**DUMMY FORMAT — NFRMOC 10)"* 1 10 )* 

29690000 C///"**SEND COPY OF PROGRAM TO SYSTEM AUTHORS."//)* 

29700000 (X90*"SCAN— CONSTANT")* 

29710000 (X90»"SCAN— DROPBACK")* 

29720000 (X80, "FUNCTION")* 

29730000 CX80*"GR0UP")* 

29740000 (X80,"INDIRECTI0N")» 

29750000 <X80,"D0TFCT")# 

29760000 CX80*"ELEMENT")* 

29770000 (X80*"INDIRECT")* 

29780000 CX80*"**C0MRINEARITHMETIC.")* 

29790000 CX80,"**COMBINEGROUP.")* 

29800000 (X80»"**C0MBINE INDIRECTION.")' 

29810000 (X80,"**C0M8INESTRVARNAME.")» 

29820000 (X80*"**cOMBlNEGOTOPART,")* 

29830000 (X80*"**C0MBlNEFUNCTl0N t ")» 

29840000 CX80, "GO-TO PART")* 

29850000 CX80,"**C9NDEN5EPATTERN")* 

29860000 (X80*"**CONDENSEREPLACEMENT")» 

29870000 <X80,"** SEMI COLON")* 

29880000 CX80*"**INSFRT STRING CONVERT")* 

29890000 (/"**END F0RMAT-" , NFRM0")j 

299Q0000 WRITECPRINT»NFRM'0tX3)l 

29910000 END INFORMOI 

29920000 PROCEDURE INFORMAL I*P ) J 

29930000 VALUE I, Pi INTEGER II ALPHA Pi 

29940000 BEGIN SWITCH FORMAT NFRMA «• 

29950000 (/"**ENTRY * "*A2)* 

29960000 CX80*"PUSHC"*A2* W )")# 

29970000 (X80,"P0PC"»A2*") W )* 

29980000 (X80,"RETURNCELL< W *A2*")")» 

29990000 (X80, "PROGRAM SEGMENT ■* "*A6)* 

30000000 (//"**ILLE6AL I/O DESCRIPTOR AT WORD "»A2)* 

30010000 (/"**EN0 F0RMAT*'MFRMA"#A6)I 

30020000 IF I > 5 OR I < THEN I * 51 

30030000 WRITE? PR INT* NFRMA f 13 *P)i 

30040000 END INFORMAI 

30050000 PROCEDURE INFORMI ( I*P) J 

30060000 VALUE I* Pi INTEGER I* Pi 

300700.00 BEGIN SWITCH FORMAT NFRMI * 

30080000 (X80*"FIXED LENGTH * "*I4)* 

30090000 (//"INVALID TYPE "*I5*" IN GROUPING.")* 

30100000 (//"ERROR IN DOTFCT IN STATEMENT "*I6/)* 

30110000 (//"ERROR IN GROUPING IN STATEMENT "*I6/)* 

30120000 (//"INTERPRETER STACK OVERFLOW IN STATEMENT "*I6//)* 

30130000 (//"**PATTERN ERROR IN STATEMENT "*I6)* 

30140000 (X80, "INPUT FROM PRE "*I2)* 

30150000 (X80*"TEMPCELL("*I2*") CALLED.")* 



*01 

X02 
%03 
X04 
X05 
X06 
X07 
%08 
X09 
*10 
Xll 
X12 

*13 

X14 
*15 
*16 
X17 
«18 
X19 

X20 
X21 
*22 
X23 
X24 
X25 
X26 
X27 
X28 
X29 
X30 



XOO 

xoi 

%02 
X03 
X04 
X05 



XOO 
XOI 
X02 
X03 
X04 
X05 
X06 
X07 



i 
i 
i 
i 
i 



" *: 



o 



€ 



• 



# 



30160000 
30170000 
30180000 

30190000 
30200000 
30210000 
30220000 
30230000 
30240000 
30250000 
30260000 
30270000 
30280000 
30290000 
30300000 
30310000 
30320000 
30330000 
30340000 
30350000 
30360000 
30370000 
30310000 
30390000 
30400000 
30410000 
30420000 

30430000 
30440000 
30450000 
30460000 
30470000 
30480000 
30490000 
30500000 
30510000 
30520000 
30530000 
30540000 
30550000 
30560000 
30570000 
30580000 
30590000 
30600000 
30610000 
30620000 
30630000 
30640000 
30650000 
30660000 
30670000 
30680000 
30690000 
30700000 
30710000 
30720000 



(X80,"INSTN0 » M *l6), 

(X80, "INTERPRETER CALLED— LEVEL m ",l3), 

(X80,"EN0 INTERPRETER — LEVEL n #I3), 

(X80, "INTRINSIC ">I2)* 

(X80,"NUMVAL ■ M *U2)* 

(X80, "OUTPUT TO FILE %I2), 

(/"♦♦END FORMAT — NFRMI", 110); 
WRITE(PRlNT,NFRMHI3>P>' 
END INFORMH 
PROCEDURE lNF0RMlACI#PlfP2); 

value i* pi* p2j integer i* pu alpha p2; 
begin switch format nfrmia ♦ 

(x80, w tempcelc m m2, w ) * %a2)> 

(x80,"newcell<">i2, h ) * ",a2>* 

(x80, w sp • ">i3* m j code « "*a6)» 

</"**end format— nfrmia". 110, a6); 

WRITE(PRINT,NFRMIAtn#Pl»P2); 

END INFORMIAJ 

PROCEDURE INF0RMIKI#P1»P2>; 

VALUE I, PI* P2; 

INTEGER I* Pi' P2; 

BEGIN SWITCH FORMAT NFRMII ♦ 

("DUMMY FORMAT— NFRMinO3"#2I10)» 

("DUMMY FORMAT — NFRMHC13", 2110), 

(X80»"**DUMMY FORMAT — NFRMI U2 3") # 

(//"**FATAL ERROR IN SCANNER IN STATEMENT ",I6,"J SP * ",I4), 

(XSO,"TT IN FROM % 12*"/", 12 )* 

(X80,"TT OUT TO %I2>"/",I2)* 

(X85,"SCAN— SP ■ %I3#"» POINT a ",U), 

(/"**END FORMAT — NFRMII", 2 1 10 >J 
WRITE(PRlNT,NFRMlItn,Pl,P2)l 
END INFORMIH 



X08 
X09 
%10 
Xll 
*12 
X13 



XQO 

XOl 
*02 



XOO 

xoi 

X02 

X03 

X04 
X05 
X06 



END INFORMIH 

X******** INFORM*********************************************** 

X********iNfTlALIZESY MB TABL************************* ********** 

PROCEDURE INITIALIZESYMBTA8LJ 

BEGIN DEFINE DUMMY»#; 

FOR I * STEP 1 UNTIL SCATTERNO DO 

Q ET /* T vj 

FOR J * SCATTERSJZE+16 STEP 1 WHILE J < STWMAX DO 

NAMTA8LtI,J3.LlNK * (J + l) & I CONCSTR, 
NEXTcELLtH ♦ < SCATTERSIZE+16 ) S I CONCSTR; 
USEDSTtn * TRUE* 

end; 
symbta8lsetup * true; 
end initializesymbtablj 

X********INTTIALIZESYMBTABL*********************************** 

********* i MPUT ************* ****** ************ ****** *********** 

X TELETYPE INPUT PROCEDURE! 
BOOLEAN PROCEOURE INPUT; 

BEGIN 

SWITCH FORMAT FLAGS * ( "<XFLAGS t OH**" ), 

("*< MESSAGE WAS TOO LONG, .. PLEASE REENTERS*" )» 
("/£ MESSAGE WAS PARTLY LOST ,. .PLEASE REENTER***" ); 

ARRAY SlNKtO«BUFlNSlZE*l3; 

INTEGER SIZ, TIMEX* FL# * 



********** 
********** 



********** 
********** 



LABEL 
ALPHA 



LOOP, 

s; 



i, r; 

NOGO, ABNORM, CHECKIT, EXIT, FAIL** 



n 



m 






m 
• 



30730000 
30740000 
30750000 
30760000 
30770000 
30780000 
30790000 
30800000 
30810000 

30820000 
30830000 

30840000 

30850000 

30860000 

30870000 

30880000 

30890000 

30900000 

30910000 

30920000 

30930000 

30940000 

30950000 

30960000 

30970000 

30980000 

30990000 

31000000 

31010000 

31020000 

31030000 

31040000 

31050000 

31060000 

31070000 

31080000 

31090000 

31100000 

31110000 

31120000 

31130000 

31140000 

31150000 

31160000 

31170000 

31180000 

31190000 

31200000 

31210000 

31220000 

31230000 

31240000 

31250000 

31260000 

11270000 

31280000 

31290000 



LOOP? 

IF 



IF 



integer stream procedure size(a>; 

BEGIN SI * A; TALLY * Oj 

DCINCHARCIF SC*"*" THEN JUMP OUT; SI*SI+i; TALLY*TALLY+1 ); 

SIZE * TALLY 
END SIZE* 

stream procedure movef a,8,c*d ); value c, d; 

begin si*a; di*b; di*di+d; ds*c chr end move; 
% 

* if inform then infqrmh c4, stat tuser 3 * [9 :43* statcuser3 « [ 14 143 ) ; 

if not oatacomf then go to fail* 
input * true; 
break * false; 

fl * dcsize * o; 
timex * timecd; 

q * ocsize oiv 8; R * dcsiZe mod e; 

datacomf 

then readcdcin(stateuser3*0),8ufinsize#sinkc*3) enogo t abn0rm3 
else go to fail; 

B00LEAN(eS*STATUS<STATtUSER3*0)} f £28«13) THEN 

Begin % buffer overflow 

FL * 2; 

go to loop; 
end; 

timex * timeu); 
if 800leancsinkc0j.c25s1]) 
then siz * dcinchar 
else siz * sizecsinkc13); 

IF DCSIZE * DCSIZE ♦ SIZ > MSGSIZE 
THEN FL * 1 
ELSE MOVE(SlNKtl3#DCREADEQ3#SlZ*R); 

if i00leanc9inkc0j. [2311]) 
then go to loop; 
chrckltt % check for overflow and transmission error 

IF Fl > THEN 

BEGIN WRlTE<DCWRlTEC*3*FLAGStFL3>; 

IF NOT OUTPUT THEN GO TO FAIL; 

IF INPUT THEN GO TO EXIT; 

END ELSE GO TO EXIT; 
ABNORMS S * STATUSCSTATEUSER3»0); 
% .1281.13 » 1 IF BUFFER OVERFLOW 
IF BOOLEANCS.C28I13) THEN FL * 2t 
% t23H3 * 1 IF ABNORMAL CONDITION 
% [24113 ■ 1 IP BUFFER IS READ READY 
% [30J13 » 1 IF UNIT NOT READY 

IF Sl[23l23»3 OR BOOLEANC S , [ 301 1] ) THEN GO TO FAIL; 
RE AO(OCIN( STAT [USER 3»0)#BUFINSIZE#SINK[*3) [N0G0JN0GQ3; 
NOGOJ 

IF TlME(l) - TIMEX < WAITTIME THEN 

BfGIN WHPN(i>; GO TO LOOP; END; 

s «■ status(stateuser3»1); 

to fail; 



i 

i 



IF 

IF 



BOOLEANCS. C301 13 ) THEN GO 
B00LEAN(S,[28»13) THEN 

BEGIN FL * 2; GO TO LOOP; 
FAIL* 

input «■ false; 

FINOUSERS; 
EXITI END INPUT; 



end; 



* * - 



o 






* •/ 



V 



# 



• 






m 

m 

m 



» END DATA COM INPUT PROCEDURE' s*?**Bsss3iBssMts««*sssgsaass* 

nsertstrinsconvert******* ************************ ************* 

insertstringcqnvertcsp); 

p; 

sp; 

6ER II 

M THEN INF0RM0C3O); 
tSP] + PSIZCCSP]! 

CODECI»W3# l,CV 
*■ PSIZECSP3 * 2i 

«• false; 

* 19; x combined arithmetic expression 

strinqconvIrt; 

N3ERTSTRINGCQNVERT******************** ************************ 
NTERPRETER**************************************************** 
THE CENTRAL CONTROL ROUTINE FOR THE INTERPRETER, IT IS 
THOUSAND CARDS LONG, 
INTERPRETER; 



31300000 |a««ss*.s«* 

31310000 1********1 

31320000 PROCEDURE 
31330000 VALUE S 
31340000 INTEGER 

31350000 BEGIN INTE 

31360000 % IF INFOR 

31370000 I * PPOlNT 

31380000 AA * W .S M ; 

31390000 MV(2#AA,6* 

31400000 PSIZEtSpJ 

31410000 PNAMECSP] 

31420000 PTYPECSP3 

31430000 END INSERT 

31440000 X********I 

31450000 %********! 

31460000 % THIS TS 

31470000 X SEVERAL 

31480000 PROCEDURE 

31490000 8EGIN 

31500000 %****************** 

31510000 integer stream procedure charcl»d; 

31520000 VALUE I; 

31530000 BEGIN Si *■ H SI * SI + II 

31540000 01 * LOC CHAR; DI * DI + 7) 

31550000 DS ♦ 1 CHR; 

31560000 END CHAR; 

31570000 X****************** 

31580000 BOOLEAN STREAM PROCEOuRE 

31590000 VALUE N, II, I?; 

31600000 BEGIN Si *■ lit SI «• Si 

31610000 01 * L2; DI * DI * 12j 

31620000 N(IF SC * DC THEN JUMP 

31630000 IF TOGGLE THEN TALLY * 

31640000 EQ * TALLY; 

31650000 END EC; 

'3t ; 660000 X****************** 

31670000 STREAM PROCEDURE MV<N,L1 * 1 1 *L2# 12 )l 

31680000 VALUE N* II, I?; 

31690000 BEGIN Sf ♦ lit SI * Si ♦ HJ 

31700000 DI * L2; DI * DI + 12; 

31710000 DS «• N CHR; 

3172OOO0 ENO MOVE; 

31730000 X****************** 

31740000 ALPHA 
31750000 FCT* 
31760000 FCTNi 
31770000 FCTV, 

31780000 returnval; 

31796000 ALPHA ARRAY 

31800000 INSTEOtMAXlNSTSIZE.Wj; 

31810000 DEFINE 

31820000 DIE * GO TO DEAD 9, 

31830000 FAILsGO TO FAILED*! 

31840000 BOOLEAN INGOTOPART; 

31850000 ALPHA FIRSTCH; 

31860000 LABEL 



EQ(N>L1'I1#L2»I2); 



+ III 

out); 

ELSE 



TALLY «■ l; 



m 



m 
m 



m 
m 



31870000 
31880000 
31800000 
31900000 
31910000 
31920000 
31930000 
31940000 
31950000 
31960000 
31970000 
31980000 
31990000 
32000000 
32010000 
32P2.0000 
32030000 
32040000 
32050000 
32060000 
32070000 
32080000 
32090000 
32100000 
32110000 
32120000 
32130000 
32140000 
32150000 
32160000 
32170000 
32180000 
32190000 
32200000 
32210000 
32220000 
32230000 
32240000 
32250000 
32260000 
32270000 
32280000 
32290000 
32300000 
32310000 

32320000 
32330000 
32340000 
32350000 
32360000 
32370000 
32380000 
32390000 
32400000 
32410000 
32420000 
32430000 



ARITHOVFL* 

BRANCH* 

DEAD, 

DEFINEDFCT* 

FCTFAlL* 

DVDZeRO* 

FAILED, 

FIXERR* 

GOTO* 

INTERPRET* 

L1MITHIT* 

MINLEF* 

NONNyMFRlC* 

PERROR* 

PFIX* 

pscan* 

REFSfT* 

RETURN* 

SCANFAILURE 

SETGO* 

SUCCEED* 

UNOEFFCT* 
UNDEFINED* 

LABEL % LOC 
BALANCE* 
DROPBACK* 
NEWPOINT* 
NEXTPATTERN 
SCANERR* 
SCANSUCCESS 
SIZEFAILURE 

X 

NEARP01NT «- 9; 
LEVEL * LEVEL 
AA * ENTRY1 
ENTRY * RULESC 
X IF INFORM TH 
GO TO SfTGO; 



X INTEGER OVERFLOW In ARITHMETIC 

X INTRINSIC FCT CASE STMT 

X FATAL ERROR LABEL 

X PROGRAM-DEFINED FUNCTION 

X FAILURE OF FUNCTION CALLS 

X DIVI0E-8Y-ZER0 IN ARITHMETIC 

X STATEMENT FAILURE LABEL 



X NON-NUM ARITH OPERAND 



AL 



X FUNCTION SUCCESS LABEL 
X CALL. OF UNDEFINED FUNCTION 
X UNDEFINED LABEL 
TO SCANNER* 



• 

• 
• 



+ i; 



LEVEL3 * o; 

EN INF0RMIC9*LEVEL)* 



INSTRUCTION 



INTERPRET! 

% START OF A SINGLE 

IF DEATH THEN DIE* 
X IF INFORM THEN 
X BEGIN WRITECPRlNTfFBL)* 1 
X WRlTEfPRlNT*17»INSTc*3)i 

X INF0RMI(8*INSTN0); 
X WRITETIME(0*0)J 

x end; 

IF AlIMITEXISTS THEN 
BEGIN 
IF RULELIMITEXISTS THEN 

IF RULESC03 > RULELIMIT THEN 60 TO LIMITHITJ 
IF CPULIMITEXISTS THEN 

IF TIMEC2) > CPULIMIT THEN GO TO LIMITHITJ 
IF IOLIMITEXISTS THEN 

IF TIMEC3) > I0LIM1T THEN GO TO LIMITHITJ 
IF DEBUGGING THEN 



(ust/a/6 eoNT*£) 






_ w 



*y* ■<**- * *. r 







#mflKa» 









• 



12440000 
32450000 

32460000 
32470000 
324(90000 
32490000 
32500000 
32510000 
32520000 
32530000 
32540000 
32550000 
32560000 
32570000 
32580000 
32590000 
32600000 
32610000 
32620000 
326 30000 
32640000 
32650000 
32660000 
32670000 
32680000 
32690000 
32700000 
32710000 
32720000 
32730000 
32740000 
32750000 
32760000 

32770000 
32780000 
32790000 
32800000 
32810000 
32820000 
32830000 
32840000 
32850000 
32860000 
32870000 
32880000 
32890000 
32900000 
32910000 
32920000 
32930000 
32940000 
32950000 
32960000 
32970000 
32980000 
32990000 
33000000 



END) 
RULESCOJ 



IF DEBUGRUUUMITEXISTS then 

IF DEBUGRUUUMIT S RULESCOJ THEN 

BEGIN SUSPENOREASONCU * TRUE; 
DEBUGCSETGO); 

END* 



* RULES £03 + \i 



GLOBAL RULE COUNT, 
LOCAL RULE COUNT, 



THEN 



TO THE NEXT PATTERN ELEMENT, 
NEXT PIECE OF CODE, 



X INCR 
RULESCLEVELJ «- RULESCLEVELJ * It X INCR 
SP * RSIZE * FRONTenO *■ REAREND * OJ 
INGOTOPART * SELFREFlAG «• NOREPUACEMENT * VARFLAG * FALSE* 

success * true; 

RELATlVEPOlNTER * U 

X CONTROLPOINT SHOULD BE AT THE 1ST CHAR OF THE INSTRUCTION, 

% FIRST CHAR NO LONGER IN USE BY INTERPRETER, 

pscan* % next pattern element 

if (nearp0int*nearpqint*relativep0inter) 2 63 
begin instruct * instruct ♦ nearpoint.w; 
nearpoint * nearpoint.c; 

end; 

RELATlVEPOlNTER * o; 

X C0NTR0L»0INT SHOULD NOW POINT 

MVC3#C0NTR0LP0INT*AA#2); X SET 

X IF INFORM THEN INFORMAC 4, AA ); 

CASE AA.C2 OF 
BEGIN 
X*************************************** 
X********Qp CODES*********************** 
% 0<-9! ERRORS 

;;;;;;;;;; 

x*************************************** 
X********FUNCTION call****************** 

X 101 W # M FUNCTION CALL 

X 2-CHAR POINTER TO SYMB TABLE LOC OF FCT 

X 1 CHAR GIVING THE NUMBER OF PARAMETERS, 

BEGIN 

X IF INFORM THEN INF0RM0C14); 

MKS ♦ SP • CHARCCONTROLPOlNT+3); 

RETURNVAt * 0* X HOLDS ST LOC OF 

FCT «- AAlC18ll23; 

PTYPEEMKS3 * i; 

FCTV * valuefcti; 

BRANCH* 

IF 800LEANCFCTV,INUSE) THEN 

IF NOT TRACEFCTCALLCFCT) THEN GO TO FCTFAILJ 

IF 

X 

CASE FCTV. LINK OF 
X*************************************** 
X******** INTRINSIC FUNCTIONS************ 

x the intrinsic functions are arranged in the following orderl 
anchor 

CALLF 

CLOSE 

DATE 

DEFINE 

DETACH 

DUMP 



SS100 
SN0B6L 

{listing coa/t'J^ 



m 
m 



X FIND 
RETURN 



FIRST PARAM, 

VALUE, 



IF NOT TRACEFCTCALLCFCT) THEN GO TO FCTFAI 
' BOOLEANCFCTV.UlU) THEN GO TO DEFlNEOFCT; 
IF INFORM THEN INFORMI C 1 1, FCTV. LINK ) ; 

,er roTii i ttii/ nr 



1 

2 
3 

4 

5 

6 
7 






33010000 
33020000 
33030000 
33040000 
33050000 
33060000 
33070000 
33080000 
33090000 
33100000 
33110000 
33120000 
33130000 
33140000 
33150000 
33160000 
33170000 
33180000 
33190000 
33200000 
33210000 

33220000 
33230000 

332«0000 
33250000 
33260000 
33270000 
33280000 

33290000 
33300000 
33310000 

33320000 
33330000 
33340000 
33350000 
33360000 
33370000 
33380000 
33390000 
33400000 
334$00OO 
33420000 
33430000 
33440000 
33450000 
33460000 
33470000 
33480000 
33490000 
33500000 
33510000 
33520000 
33530000 
33540000 
33550000 
33560000 
33570000 



9 
10 
11 
12 
13 
14 

15 
16 
17 
18 
19 
20 
21 

22 
23 
24 
25 
.26 
27 
28 

29 

30 

31 
32 
33 

34 
35 

36 
37 

38 
39 

40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



eof 

• E o 

EQUALS 
EXECUTE 
FILE 
FILL 
.OE 

.GT 

.LE 

LEVEL 

LOOK 

.LT 

MODE 

• NE 

;num 

OPSYN 
P AGE 

POP 

PUSH 

t REMDR 

REWINO 

RULES 

size 

SPACE 

time 

TRACES 

TRACEF 

TrACEL 

TRIM 

UNANCH 

UNEOL 

WAIT 

suspend 
status 

USER 

Seek 

RELEASE 
RECORD 
TRACE 
.ASSIGN 
COPY 

SEARCH 

• RANF 



f 

i 
i 
i 



BEGIN * C©DE FOR INTRINSIC FUNCTIONS FOLLOWS! 
01 UNDEFINED 

GO TO unoEffct; 

II ANCHOR 
BEGIjg PTYPEC03 * 3J 
IF SP > MKS THEN 

BEGIN IF NOT NUMVAL <PST CMKS3# I 1 ) OR It < 

THEN GO TO FCTFAILJ 
PSiZEf03 * l\t 

END ELSE PSIZE103 * ANCHORSIZE* 
GO TO SUCCEED) 
END ANCHOR* 
21 CALLF(F#Pl#P2#...»PN) CALLS THE FUNCTION NAMED BY F* WITH THE 






***m- 



** 



»**s 






■**• 



»*<# 






• 

• 






33510000 
33590000 

33600000 
33610000 
33620000 
33630000 
33640000 
33650000 
33660000 

33670000 
33680000 
33690000 
33700000 
33710000 
33720000 
33730000 
33740000 
33750000 
33760000 
33770000 
33780000 
33790000 
33800000 
33810000 
33820000 
33830000 
33840000 
33850000 
3 3860000 
33870000 
33880000 

33890000 
33900000 
33910000 
33920000 
33930000 
33940000 
33950000 
33960000 
33970000 
33910000 
33990000 
34000000 
34010000 
34020000 
34030000 
34040000 
34050000 
34060000 
34070000 
34080000 
34090000 
34100660 

34H0000 
34120000 
34130000 
34140000 



% PARAMETERS PI* P2» .,,* PN, 
BEGIN SEGMENT 

AA * PSTrMKS3J 

AB * VAIUCAA3; 

FCT * ENTERST(AB,S,0ATACA8,R#*3#AB i CHf H FC 

FCTV * VALUCFCT3I 

SP * SP -II 

FOR I «• MKS STEP 1 UNTIL Sp DO 

begin psTtn * psTti + n; 

NAME CI 3 * PNAMECI + U; 
ENOI 

GO TO branch; 
end cauf; 

31 ClnSE(F#P) 

CL05ECF#P) CLOSES THE FILE 
SPECIFIED BY P. THE VALUES 



i 
i 



T")| 



ASSOCIATED 
OF P ARE* 

"*" only for tape files, the tape 
thf eno-of-file for the current 
operation had eof* no action is 

-lock" closes the file and saves t 
new disk files are saved for the 
ationsi tape files are rewound a 
to remove the tape and save it. 

"Release" Releases i/o unit to the 
rewouno and oisk files are oestr 
the program, 

"PURGF" THE FILE IS CLOSED* PURGED 
SYSTEM, 

SEGMENT 

< MKS THEN GO TO FCTFAILI 
IF SP-MKS * 1 THEN IF NOT NULLARGSU) THE 
INDIRECT(MKS); 

* P5TCMKS3* 
«■ PSTCMKS + 131 

* I0CAA3I 
AA.IOUSE»0 OR 

* VALUCAB3I 
U2*AB*S> > 7 

* o; 

12 s 
THEN AC * 

else mvci2»firstcharcab>»ac,8«»I2); 

* AC! 



% 

% 
% 
% 
% 

% 
% 
% 
% 
% 
% 
% 
% 
% 

BEGIN 
IF SP 



AA 
AB 
AA 
IF 
AB 
IF 
AC 
IF 



WITH $F# IN THE MANNER 



f 

€ 



IS POSITIONED JUST BEYOND 
FILEt IF LAST I/O 
TAKEN, 
HE UNIT FOR THE PROGRAM, 

TIME GIVEN IN THEIR DECLAR- 
NO THE OPERATOR IS TOLD 

SYSTEM, TAPE FILES ARE 
OYED IF CREATED BY 

* AND RELEASED TO THE 



N 60 TO FCTFAIL* 



Il*AA,FILNO*0 THEN GO TO FCTFAIL* 
THEN GO TO FCTFAlL* 



• 

% 



AC 
IF 
IF 
IF 
IF 
IF 



IF 



AC * THEN CL0SEU0FILEU13) ELSE 

AC ■ -LOCK" THEN LOCK( IOFlLEC 1 13 » SAVE ) ELSE 

AC » "SAVE- THEN CLOSE< IOFlLEE 1 1 3 #SAVE ) ELSE 

AC * -PURGE" THEN CLOSE* IOFILEt 1 1 3*PURGE) ELSE 

AC « -RELEASE" THEN 

BEGIN I0FILE0PINCI13 * FALSE* 

CLOSE(iOFlLEU13*RELEASE)l 

END ELSE 

Ac ■ "*" THEN CLQSEClOFlLECin**) ELSE 

BEGIN IF PRINTMESSAGES THEN 

BEGIN MESSAGEI(8#INSTN0)I 

MESSAGETTK8»INSTN0); 

END! 
GO TO FCTFAIL* 






€ 






m 
m 



34150000 
34160000 
34170000 
34180000 
34190000 
34200000 
34210000 
34220000 
34230000 
34240000 
34250000 
34260000 
34270000 
34280000 
34290000 
34300000 
34310000 
34320000 
34330000 
34340000 
34350000 
34360000 
34370000 
34380000 
34390000 
34400000 
34410000 
34420000 
34430000 
34440000 
34450000 
34460000 
34470000 
34480000 
34490000 
34500000 
34510000 
34520000 
34530000 
34540000 
34550000 
34560000 
34570000 
34580000 
34590000 
34600000 
34610000 

34620000 
34630000 
34640000 
34650000 
34660000 
34670000 
34680000 
34690000 
34700000 
34710000 



IN THE FORM 



* 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 

BEGIN 

IF SP 

IF 

IF 



A SNQBOL FUNCTION. THE VALUES OF THE 

FORMS' 

( <PARAMS> ) 



SNOBOL IDENTIFIER. 
THAT OCCURS IN THE PROGRAM* 
ENTRY POINT IS TAKEN TO BE 



end; 
go to succeed) 

end intrinsic function close; 
41 oateo returns the current date 

% MM/DO/YY 

BEGIN SEGMENT 

aa * date; 
ab * tempcell; 

AC * STRING(8#A8); 
MVt8»AA,0#FlRSTCHAR(AC))J 

VAlUrABJ * ac; 

returnval * ab; 
go to succeed; 

end loate; 
5j define(a»b#c) creates 

parameters are of the 
a ii* <fct name> 

B l*« <LABEL> 

C sl» <LOC VARS> 

<FCT NAME> IS A LEGAL 

<LABEL> IS A LABEL 

B IS NULL' THE 

AS <FCT NAME>. 

<PARAMS> AND <LQC VARS> ARE THE FORMAL PARAMET 

VARIABLES. THEY CAN BE NULL* OR CAN CONSI 

IDENTIFIERS SEPARATED BY COMMAS. SEE ALSO 

SNBLDEFINE AND THE DEFINE PART OF PROCESSC 

SEGMENT 

- MKS < 3 THEN 

NOT NULLARGS(3-SP+MKS) THEN GO TO FCTFAIL; 
SNBLDEPlNE(PSTtMKS3#PSTCMKS+n#PSTCMKS+2 3) 
THEN GO TO SUCCEED) 
MESSAGEH9.INSTN0); 
MESSAGETTI(9#INSTN0); 

GO TO fctfail; 
end ldefine; 

61 detachff#v) terminates any i/o use of the quan 
the type of this quantity is determined by the 

OF V* AS FOLLOWSl 

M S» OR NULL ■ STRING NAME 
"F" * FUNCTION NAME 
"L" m LABEL 
BEGIN SEGMENT 

IF SP < MKS THEN GO TO FCTFAIL) 
SP - MKS > 1 THEN 
BEGIN AA * PSTtMKS+13; 



m 

m 



OR IS NULL. IF 
SPELLED THE SAME 

ERS ANO LOCAL 
ST OF A LIST OF 

THE PROCEDURE 
QNTROLCARD. 



• 
• 



% 
% 
% 
% 
% 



IF 



TITY NAMED BY F. 
FIRST CHARACTER 



# 
• 



VALUtAAj; 

* CHARCFIRSTCHARCAB)}) 

AB.S'b OR AC s» H S M THEN AC * 

THEN AC * "FCT W ELSE 

THEN AC * "INST" ELSE GO TO FCTFAIL) 



AB 

AC 

IF 

IF AC * "F" 

IF AC * M L W 

END ELSE AC * M SYM8") 
AA «■ PSTCMKS3) 
AB «• VALUE AA]) 

AA * ENTERST(AB.S'DATACAB,R»*3#AB,CH,AC)) 
VALUCAA3.I0USE ♦ IOCAAJ * 0) 
GO TO SUCCEED) 



"SYMB" ELSE 



# 



* •' 



• 1 -4ntK * 



w? 



• ■** 



■ Hfef 



■ll' 



• . 



vf. 



/'^ppff 1 



c 



• 
• 
• 



3^720000 
34730000 
34740000 

34730000 
34760000 

34770000 
34780000 
34790000 
34800000 
348J0OOO 
34820000 
34830000 
34840000 
34850000 
34860000 
34870000 
34880000 
34890000 
34900000 
34910000 
34920000 
34930000 
34940000 
34950000 
34960000 
34970000 
34980000 
34990000 
35000000 
35010000 
35020000 
35030000 
35040000 
35050000 
35060000 
35070000 
35080000 
35090000 
35100000 
35110000 
35120000 
35130000 
35140000 
35150000 
35160000 
35170000 
35180000 
35190000 
35200000 
35210000 
35220000 
35230000 
35240000 
35250000 
35260000 
35270000 
35280000 



END LDETACH) 
71 OUMPC) 
BEGIN SEGMENT 

messageh10,instn0)j 
if Inform then begin 

STRlNGDUMP(INSTNO)) 
GO To SUCCEED) 
END DUMP) 
81 EOFCF). SUCCEEDS IF 
% WITH $F FAILED DUE 



% DUMP REQUESTED.*. 

writestj writedata; end; 



THE LAST I/O OPERATION ON THE FILE ASSOCIATED 
TO END-OF-FILE. IF NOT, OR IF $F IS NOT AN 



THEN EOF(F) FAILS. 



B, 



IF 



IF 



GO 



I. I/O STRING* 
BEGIN SEGMENT 

IF SP $ MKS THEN GO TO FCTFAIL; 
INDIRECT(MKS)I 
AA * VALUCPSTCMKS33) 

IF AA.IOuSE • THEN GO TO FCTFAIL) 

60 TO IF IOEOFCAAiFILNOI THEN SUCCEED ELSE FCTFAIL; 
END EOF) 
9» »EQ(A,B) SUCCEEDS IFF BOTH A AND B ARE NUMERIC, Al 
BEGIN SEGMENT 
IF SF * MKS < 2 T«EN 

IF NOT NULLARGS(2*SP+MKS> THEN GO TO FCTFAlD 

NuMVALfPSTCMKSUAA) AND NUMVALC PSUMKS + 1 3 , AB ) 

THEN GO TO IF AA * AB THEN SUCCEED ELSE FCTFAIL* 

PRINTMESSAGES THEN 

BEGIN MESSAGEAl(0* M EQ. w #INSTNO)J 

MrSSAGETTAICO, w EQ M /lNSTNO)* 

endi 

to fctfail) 

END) % ,EQfA#8> 
101 EOUALSCA.B) SUCCEEDS IFF A AND B HAVE THE SAME STRINGS AS VALUES, 
BEGIN 

if sp - mks < 2 then 

if not nullargs(2-sp*mks) then go to fctfail) 
■* pstcmksj; 

* PSTfMKS + H) 
«• VALUCAB3) 

* VALUCAC3) 
TO IF ABlS / AC.S 
THEN FCTFAIL 

ELSE IF EgUAL<AB,S#FlRSTCHAR(AB)#FlRSTCHAR(AO) 
THFN SUCCEED 

ELSE fctfail; 

END LEQUALS) 
11» ExECUTECS) CURRENTLY WORKS IF THE FIRST CHAR OF S IS QMARK, IN 
% WHICH CASE THE ALGOL "ZIP WITH <ARRAY ROW>« IS EXECUTED ON SI 
% OR IF S IS AN INPUT STRING, IN WHICH CASE THE ALGOL "ZIP WITH 
% <FILE PART>" IS EXECUTED ON THE FILE BELONGING TO S, OR IF S 
X STARTS WITH w -"» WHICH IS A SNQBOL CONTROL CARD. 
BEGIN SEGMENT 
IF MKS * SP THEN GO TO FCTFAIL) 

* PSTfMKS3) 

* VALUCAA3I 
800LEANCAB.INUSE) 
BEGIN 
IF BOQLEANCAB.INUSE) 

BEGIN 



AB 
AC 
AB 
AC 
GO 



AA 

AB 
IF 



THEN X ZIP WITH FILE 



AND AB.FILNO > THEN 



€1 



m 
m 



35290000 
35300000 
35310000 
35320000 
35330000 
35340000 
35350000 
35360000 
35370000 
35380000 
35390000 
35400000 
35410000 
35420000 
35430000 
35440000 
35450000 
35460000 
35470000 
35480000 
35490000 
35500000 
35510000 
35520000 
35530000 
35540000 
35550000 
35560000 
35570000 

35580000 
35590000 
35600000 
35610000 
35620000 
35630000 
35640000 
35650000 
35660000 

35670000 
35680000 
35690000 
35700000 
35710000 
35720000 
35730000 
35740OQ0 
35750000 
35760000 
35710000 
35780000 
35790000 
35800000 
35810600 
35820000 
35830000 
35840000 
35850000 



% MCP CONTROL CARD 



ZIP WITH I0FILECA8.FILN03; 
GO TO SUCCEED* 
END* 
SO TO FCTFAIU 

end; 

IF tIl*CHAR(FlRSTCHAR(AB))) « OMARK THEN 
BEGIN ALPHA ARRAY Z[0 I AB . t 17 « 103 3 ; 
MOVE(STRINGLOC(AB)#Z[*3#0); 
ZIP WITH zc*3; 

GO to succeed; 
end; 

IF u . w-« THEN % SN0B0L CONTROL CAR0 

begin alpha array scratchco*(ab,s),w3> 

InSTSjZE «- AB.S; 

mqveunstsize,firstchar(ab), scratch! 03*0); 
scratcheinstsiZe.wj * stopper; 
procfsscontrolcardc scratch); 
go to succeed; 
end; 
go to fctfail; 

END LEXEfUTFi 
Xl2t FILE(N AME* I. 0* BUFFERS* REC. SIZE* BUFF »SIZE* SAVE. F ACT* DSK, ARE AS* SIZE) 
X FlLE(.I.) OPENS A FILE* AS DESCRIBEO BY THE PARAMETERS! 
% NAME CONTAINS THE NAME OF THE PRIMARY I/O STRING 
X 1.0 STARTS WITH "I" FOR INPUT FILES* M Q W FOR OUTPUT FILES* AND 
X IS NULL FOR FILES WITH BOTH INPUT AND OUTPUT USE, 
X BUFFERS IS THE NUMBER OF BUFFER AREAS TO BE USED, 
X RFC. SIZE TS THE SIZE (IN CHARACTERS) OF AN I/O RECORD 
% BUFF. SIZE IS THE SIZE (In CHARACTERS) QF A BUFFER (PHYSICAL RECORD) 
% SAVE. FACT IS THE SAVE FACTOR FQR FILES CREATED BY THE PROGRAM 
X OSK.ARFAS IS THE NUMBER OF DISK AREAS FOR NEW DISK FILES (S20) 
X SIZE IS THE SIZE OF ONE OF THESE DISK AREAS* IN LOGICAL RECOROS, 
BEGIN 
INTEGER 

AREAS, 

ASIZE* 

BLOCKCOUNT* 

BUFFERS* 

BUFSIZE* 

CYC* 

RFCSIZE* 

savefactor* 

typea, x -algol" type* 9* 10, or 11 

TYPES, X "SNOBOL" TYPE* 1* 2* OR 3 
UNIT; 

monitor print ( areas* as i ze* blockcount* buffers* bufsize* cyc* rec si z£* 
iosizf*valtabl»iousage* 
savefact0r*typea*types*unit*aa*a8*ac*i1*i2); 

X 

GO TO UNDEFFCT; X UNTIL A WAY IS FOUND TO IMPLEMENT FILE DECLARATIONS 

UNIT * 0; 

C Y C *■ 1 & i 

FOR I * 1 STEP 1 UNTIL FILMAX DO 
IF NOT I0FILE0PENCI3 THEN 

IF IOUSAGEtn. CYCLE < CYC THEN 

BEGIN UNIT * I; CYC * I OUSAGEC 1 3 , CYCLE** END; 
IF UNIT « THEN 



€ 

i 
i 
m 



m 
# 



». • 



- m- * 



• 



* • 



• 



35860000 
39870000 
35880000 
35890000 
35900000 
35910000 
35920000 
35930000 
35940000 
35950000 
35960000 
35970000 
35980000 
35990000 
36000000 
36010000 
36020000 
36030000 
36040000 
36050000 
36060000 
36070000 
36080000 
36090000 
36100000 
36110000 
36120000 
36130000 
36140000 
36150000 
36160000 
36170000 
36180000 
36190000 
36200000 
36210000 
36220000 
36230000 
36240000 
36250000 
36260000 
36270000 
36280000 
36290000 
36300000 
36310000 

36 320000 
36330000 
36340000 
36 350000 

36360000 
36370000 
36380000 
36390000 
36400000 
36410000 
36420000 



IF 

X 

AA 
AB 
IF 



BEGIN 
GO TO 
END* 
Sp » MKS 



mfssageich, 
fctfail* 



INSTNO); % NO FILE AVAILABLE 



< 3 THEN GO TO FCTFAR* 



* PSTCMKS+13* 

* VALUCAA3I 
AB.S * THEN 
BEGIN TYPEA * H* 
TYPES * 3/ 
END ELSE 

if u1*charcdata[ab.r 
begin typea ♦ 9; 

TYPES * 2i 
END ELSE 
IF II a "O" THEN 

BEGIN TYPEA ♦■ 10* 

TYPES * 1* 

END ELSE 

BFGIN X ERROR! INVALID 

MESSAGEItl5#INSTN0); 

go to fctfail* 
end; 
if not numval(pstcmks+21#b 
begin x error! invalid 

MeSSAGEIC16#INStN0)J 

go to fctfail* 
end; 

IF Sp - MKS < 3 THEN RECSI 
IF NOT NUMVALCPSTCMKS+3 
OR RECSIZE > 8182 
BEGIN X ERROR! INVA 
GO TO FCTFAIL* 
END* 
IOSIZEtUNlTj * RECSIZE; 
RECSIZE * (REC5IZE+7).W* 
IF SP - MKS S 4 THEN BUFSI 
IF NOT NuMVALCPSTCMKS*4 
OR BUFSIZE > 8182 
BEGIN % ERROR! INVA 
GO TO FCTFAIL* 
END* 
BUFSlZE * <8UFSIZE+7),w; 
IF Sp - MKS $ 5 THEN SAVEF 
IF NOT NUMVAL(PSTCMKS*5 
BEGIN X ERROR! INVA 
GO TO FCTFAIL* 
END* 
IF SP - MKS i 6 THEN 
IF NOT NUMVALCPSTC 
OR AREAS > 2 
BEGIN X ERROR! 
GO TO FCTFAIL* 
END* 
IF Sp •> MKS 



€ 

i 

4 

i 



#A8,W3»AB.O) 9 »•!« THEN 



I/O TYPE 



UFFERS) OR BUFFERS < 1 THEN 
BUFFER NUMBER 



ZE ♦ ELSE 

3, RECSIZE) OR RECSIZE < 

THEN 
LID RECORD SIZE 



ZE * ELSE 

3#BUFSIZE> OR BUFSlZE < 

THEN 
LID BUFFER SIZE 



ACTOR «■ ELSE 

3*$AVEFACT0R) OR SAVEFACTOR £ THEN 

LID SAVEFACTOR 



m 
m 



* ELSE 

1*areas) or areas < 

:n 



AREAS 
MKS+6! 
THEI 
INVALID NUMBER OF DISK AREAS 



Sp * MKS < 7 THEN 

IF NOT NUMVALCPSTC 

BEGIN X ERROR! 



ASIZE <• ELSE 
MKS+7J*A$IZE) OR ASIZE < THEN 
INVALID DISK AREA SIZE 



• 



36430000 
36440000 
36450000 
36460000 
36470000 
36480000 

36490000 
36500000 % 
36510000 

3652J5OO0 

36530000 

36540000 

36550000 

36560000 

36570000 

36580000 

36590000 

36600000 

366|0000 

36620000 

36630000 

36640000 

36650000 

36660000 

36670000 

36680000 

36690000 

36700000 

36710000 

36720000 

36730000 

36740000 

36750000 

36760000 

36770000 

36780000 

36790000 

36800000 

36810000 

36820000 

36830000 

36840000 

36850000 

36860000 

36870000 

36880000 

36890000 

36900000 

36910000 

36920000 

36930000 

36940000 

36950000 
36960000 

36970000 
36980000 
36990000 



FILLS THE FILE 
AS DESCRIBED BY 



go to fctfail? 
end; 

CYC «• lOUSAGEtUNIT], CYCLE; 

CYC » CYC ♦ U 

% CREATE NEW FILE HERE, 

so to succeed; 

END INTRINSIC FILE; 
131 FILL (NAME* MFID* FID* MED I A* DATE* REEL* CYCLE) 
% SNaMe WITH A DESCRIPTION OF AN ACTUAL FILE* 
THf PARAMETERS AS FOLLOWS* 

MFIS/FID IS THE EXTERNAL NAME OF THE FILE. IF EITHER 

MFID OR FID CONTAIN MORE THaN 7 CHARS* ONLY THE FIRST 7 
WILL BE USED, IF EITHER IS NULL* "0000000" WILL BE USED. 
MEDIA IS ONE OF THE MEDIA DIGITS LISTED IN THE ALGOL MANUAL, 
DATE IS THE DATE THAT SHOULD BE USED WITH OUTPUT FILES* 

USUALLY THE CURRENT DATE, IT CAN BE IN THE FORM MM/DD/YY 
OR THE FORM YYDDD (WHICH IS HOW IT IS STORED IN THE 
STANDARD FILE LABEL). 
REEL IS THE REEL NUMBER* FOR MULTI-REEL* TAPES 
CYCLE IS THE CYCLE NUMBER* ALSO FOR TAPES MAINLY, 
IF ANY OF THE PARAMETERS IS MISSING* IT WILL NOT BE ASSIGNED; 
THUS* MULTIPLE CALLS OF FILlC ) CAN FILL IN DIFFERENT PIECES OF 
INFORMATION, IF FILEO IS TO BE EFFECTIVE* IT MUST BE USED 

FILE. 

D* m, y; 



c 

i 

i 



% 
% 

% 

% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



i 
« 



BEFORE ANY I/O IS DONE ON THE 
BEGIN ALPHA ST* SIO* MFID* FID* 
INTEGER MED* REEL* CYC; 
IF SP i MKS THEN GO TO FCTFAIL; 

IF SP - MKS < 3 THEN 

if not nullargs(3-5p+mks) then go to fctfail; 
inoirectcmks); 
st «- pshmksj; 

if valucst3.i0use s then go to fctfail; 
sio * ioest); 

% GET MFID» 

aa * PsnMKs+n; 

AB *• VALUtAAj; 

if ab.s a then mfid * -1 else 
begin mv(7*blanks*1*mfid*1); 
mvcmin<7,ab.s)*firstcmar(ab)»mfid*1); 

end; 

MFID * MFID; 

% GET FID» 

AA * PSTCMKS+23; 

AB * VALUtAA); 

if ab.s a then fid *■ -1 else 
begin mv<7*blanks*i*fid*i>; 

Mv(MlN(7,A8,S)*FIRSTCHAR(A8)*FID»l); 

End; 

fid * fid; 

% get media digit! 

if sp-mks<3 or valtablc<aa*pstemks+33),str*aa,stw3,$ 

THEN MED * <*1 ELSE 

IF NOT NUMVALCAA.MED) THEN GO TO FCTFAIL; 
MED * MED; 

% GET DATE* 

IF SP-MKS S 4 OR VALTABLrCAA*PSTCMKS+4]),STR*AA,STW3,5 
THEN D ♦ "l ELSE 



• 

m 



m 



* 






# 

m 



• 



37000000 
37010000 
37020000 
37030000 
37040000 
37050000 
37060000 
37070000 
37080000 
37090000 
37100000 

37110000 
37120000 
37130000 
37140000 
37150000 
37160000 
37170000 
37180000 
37190000 
37200000 
37210000 
37220000 
37230000 
37240000 
37250000 
37260000 
37270000 
37280000 
37290000 
37300000 
37310000 
37320000 
37330000 
37340000 
37350000 
37360000 
37370000 
37380000 
37390000 
37400000 
37410000 
37420000 
37430000 
37440000 
37450000 
37460600 

37470000 
37480000 

37490000 
37500000 
37510000 
37520000 
37530000 
37540000 
37550000 
37560000 






gfGIN AA * PSTCMKS+43; 

AB «• VALUCAA3J 

IF AB.S * THEN D * -1 ELSE 

IF AB.S * 5 THEN 

MV<5,FIRSTCMAR<AB),0,3) ELSE 
IF AB.S w 8 THEN 

BEGIN MVC8>FIRSTCHAR(A8)#Q#0)J 

IF CHARC0#0) > 1 THEN GO TQ FCTFAIU 

IF 0, £12*83 t "/" OR D. £30*63 t »/" THEN GO TQ FCTFAIU 

Y * 0. £36*123; 

M * D.£l*53 x 10 + 0.£6*63; 

IF M > 12 THEN GO TO FCTFAJLJ 

* 0. £18*63 x 10 ♦ D. £24*631 

IF D > 31 THEN GO TO FCTFAIL; 

FOR I * I STEP I UNTIL « DO D * ■♦ M0NTHS£I3; 

«• ENTIERCO MOD 10) 8 Y£18*36il23 & 

ENTIERCD OIV 100 ) £ 30 * 42 * 63 4 

ENTIERCCO MOD 100) OlV 10 ) £ 36 *42* 63 ; 

end; 
end; 
* find reel number* 
if (if sp-mkss5 then t else valtablf ( aa*pst emks+53 ) .str* aa,stw 3 »s*0 ) 

THEN REEL ♦ "l ELSE 

IF NOT NUMVALCAA#REEL) THEN GO TO FCTFAlL; 
% FIND CYCLE NUMBER* 
IF (IF SP-MKS<6 THEN T ELSE V ALT ABLE C AA<-PST£MKS + 6 3 ) *STR# AA.STW3 * S*0 ) 

THEN CYC * -1 

ELSE IF NOT NUMVALC AA,CYC ) THEN GO TO FCTFAlL) 
* FOUND PARAMETERS; FILL FILE* 

% NOTE THAT A FlLl ELEMENT OF -1 MEANS "NO CHANGE'S 
FILL lOFILErSlO.FlLN03 WITH MFJO* Fl0# REEL* D» CYC# MED* 

go to succeed; 
end fill; 

14* «ge(a«8) succeeds iff a and b are numeric and a > b, 
begin segment 
if sp - mks < 2 then 

if not nullargs(2-sp+mks) then go to fctfall; 
if numval(pst£mks3*aa) and numv al £ pst cmks+l 3 $ ab ) 

then go to if aa 2 ab then succeed else fctfall; 
if prlntmessages then 

begin messageai(0* w ge"*in$tnq); 

mfssagettako» w ge m #instno); 

end; 
go to fctfail; 
end lge; 

15* ,GT(A,B) 
X .GT(A»B) SUCCEEDS IFF A AND B ARE BOTH NUMERIC AND A > 8, 

BEGIN SEGMENT 

IF Sp - MKS < 2 THEN 

if not nullargs(2«sp+mks) then go to fctfall; 
if numvalcpst£mks3#aa) and numval(pst cmks+l 3* ab ) 

then 60 to if aa > ab then succeed else fctfalu 
if prlntmessages then 

bfgin messageal(0#"qt"#instno); 

messagettai(0#"gt m mnstn0); 
end; 
go to fctfail; 



• 
• 

• 



• 

• 
• 
• 



c 






37570000 END LGT* 

37580000 X 16» .LE(A,B) 

37590000 X ,LE(A#B) SUCCEEDS IFF A AND 8 ARE BOTH NUMERIC AND A $ B, 

37600000 BEGIN SEGMENT 

37610000 IF SP <■ MKS < 2 THEN IF NOT NULLARGSc2-SP+MKS > THEN GO TO FCTFAIL* 

37620000 IF NtjMVAL CPSTt MKS] » AA ) AND NUMVAL(PSTtMKS + U » AB ) 

37610000 THEN GO TO IF AA S AB THEN SUCCEED ELSE FCTFAIU 

37660000 IF PRINTMESSAGES THEN 

37650000 BEGIN MESSAGEAI ( 0, "LE"* INSTNO j; 

37660000 MFSSA6ETTAI(0#"LE"> INSTNO)* 

37670000 ENDi 

37680000 GO To FCTFAIU 

37690000 END LLE* 

37700000 X 171 LEVELO 

37710000 X LEVEIO RETURNS THE LEVEL AT WHICH THE PROGRAM IS CURRENTLY 

37720000 X OPERATING. THE LEVEL IS DEFINED AS FOLLOWS! IT IS 1 AT THE 

37730000 X START OF THE PROGRAM) IT INCREASES BY 1 WITH EACH CALL ON A 

37740000 X PROGRAMMER-SEFINED FUNCTION* AND IT DECREASES BY 1 AT EACH 

37750000 X RETURN (OR FRETURN), 

37760000 BEGIN SEGMENT 

37770000 RETURNVAL «• TEMPVALC LEVEL > ; 

37780000 GO TO SUCCEED* 

37790000 END* X LEVELO 

37800000 X 185 LOOK(S»F) 

37810000 X LOOK(S,F> TURNS THE STRING *S INTO A NON-REAOINT I/O STRING FOR 

37820000 X THE INPUT FILE BELONGING TO THE STRING $F, IF $F IS NOT AN INPUT 

37830000 X STRING (NOT DATACQMM), LOOK FCTFAILS, 

37840000 BEGIN SEGMENT 

37850000 IF SP - MKS < 2 THEN GO TO FCTFAIL* 

37860000 INOIRECT(MKS)* 

37870000 AA *• PST[MKS3* 

37880000 INDIRECT(MKS+n; 

37890000 AB «• PSTfMKS + U* 

37900000 AC * IOTABLt AB.STR, AB ,STW 3 ; 

37910000 IF NOT BOOLEAN( AC t INUSE) OR ACFILNO-0 THEN GO TO FCTFAlL* 

37920000 VALUrAAJ.IOuSE «• 2* 

37930000 I0CAA3 * 8 2 ClOuSE & 2 CIOTYPE & AC TFILNQ* 

37940000 60 TO SUCCEED* 

37950000 END* 

3796OOQ0 X 19« ,LT(A,B) 

37970000 X ,LT(A,B> SUCCEEDS 

37980000 BEGIN SEGMENT 

37990000 IF SP-MKS < 2 THEN IF NOT NULURG$<2*SP+MKS3 THEN 

38000000 IF NUMVAL(PSTEMKS2#AA) AND NUMVAL(PST [MKS+1 3# AB ) 

38010000 THEN GO TO IF AA < AB THEN SUCCEED ELSE FCTFAIL* 

38020000 IF PRINTMESSAGES THEN 

38030000 BEGIN MESSAGEAI ( 0*"LT"» INSTNO )* 

38040000 MESSAGETTAI(0* W LT M # INSTNO)* 

38050000 EnD* 

38060000 GO TO FCTFAIL* 

38070000 END lT* 

38080000 X 20S MoDE(V) 

38090000 X MODECV) SETS SYSTEM VARIABLE* DEPENDING ON THE CONTENTS OF V 

38100000 X THf VALUES CURRENTLY RECOGNIZED FOR V AREl 

38110000 X "DUMP" EXECUTE OUMPO AT END*QF-J0B, 

38120000 X "ROUND" RQUnD QUOTIENTS OF DIVISIONS (STANDARD), 

38130000 X "INTEGER" DIVISION FCTFAILS IF REMAINDER i 0, 



• 



IFF A AND B ARE BOTH NUMERIC AND A < B, 

GO TO FCTFAIL* 






* 


» 






• 










38140000 


X 






38150000 


% 




• : 


38160000 


% 






38170000 


% 






38180000 


X 




• 


38190000 


% 






38200000 


BEGIN 




38210000 


IF 


SP 


• 


38220000 


AA 


* 




38230000 


AB 


#• 




38240000 


IF 


(I 


• 


38250000 


MVCIl 




38260000 


CASE 




38270000 




BE 


• 


38280000 
38290000 
38300000 




IF 


• 


38310000 
38320000 








38330000 




IF 


• 


38340000 
38350000 
38360000 






• 


38370000 
38380000 
38 390000 




IF 


• 


38400000 








38410000 




IF 




38420000 






• 


38430000 
38440000 
38450000 






• 


38460000 
38470000 
38480000 




IF 


• 


38490000 
38500000 
38510000 






• 


38520000 
38530000 
38540000 






• 


38550000 
38560000 
38570000 




IF 


• 


38580000 








38590000 








38600000 




IF 


• 


38610000 








38620000 








38630000 






• 


38640000 








38650000 




IF 




38660000 






• 


38670000 








38680000 








38690000 




IF 


• 


38700000 







"TRUNCATION" TRUNCATE QUOTIENTS, 

"ANCHOR" ALL SCANS ARE ANCHORED UNLESS UNANCH* ) IS 

"UNANCH" ALU SCANS ARE UNANCHORED* UNLESS ANCMORO 

"UNANCHOR" SAME AS "UNANCH" (STANDARD). 

"INFORM" TURN ON SYSTEM DEBUGGING OUTPUT, 

"SILENCE" TURN OFF DEBUGGING OUTPUT (STANDARD), 

ALPHA ARRAY WORD[Oll]J 

< MKS THEN GO TO FCTFAIL* 

PSTfMKS3; 

VALUf AA31 

1*AB.S) < 3 OR II > 10 THEN GO TO FCTFAILJ 

#FIRSTCHAR(AB),WQR0C*3*0); 

II OF 

GIN ;>J X NONE OF SIZE 0* 1* OR 2. 
EQ(3*WORDt*3*0*WORDS[133*5) THEN 

begin debugging «• false* % run 

setlimitflagj 

go to succeed; 

end; 

equal(4*wor0t* 3*0* worosc 13*3) then 

begin dmpstr «■ true; % dump 

go to succeed; 

end; 

EQUAL (5»WQR0r*3*O*WOROSi:O3*7) THEN 
BEGIN DIVIDEMODE * 0? X ROUND 

go to succeed; 

END ELSE 

EQ(5#W0R0C*J*0,W0RDSU3U0) then 
BEGIN DEBUGGING «■ TRUE; X DEBUG 

SETLlMlTFLAG; 

go to succeed; 

end; 

equal(6*wqr0e*3*0» words co] ,2) then 

begin if sp - mks > 1 then x anchor 

begin if not numval(pstcmks + 1 3 , 12 ) 
then go to fctfail; 

anchorsize * 12; 

end; 

ANCHORMODE * 3; 

go to succeed; 

END ELSE 

EQUAL (6>W0RDf * 3*0* WORDSt 3*0) THEN 

begin anchormode * 2i x unanch 

anchorsize ♦ o; 
go to succeed; 

END ELSE 

equal (6* word t* 3*0* words c 43*6) then 
begin printmessages * true; x inform 
inform * systemdebugging; 
go to succeed; 

end; 

equal(7*w0rd(*3*o*w0rdsc23*o) then 
begin dividemode *■ 2} x integer 

go to succeed; 

END ELSE 

EQUAL(7*W0RDC*3*0*W0RDSC5 3*4) THEN 
BEGIN X SILENCE 



1 



USED, 
IS USED 



OR 12 < OR 12 > 8191 






d 



€ 



m 



38710000 
38720000 
38730000 
38740000 

38750000 
38760000 
38770000 
38780000 
38790000 
38800000 
38810000 
38820000 
38830000 
38840000 
38850000 
38860000 
38870000 
38880000 
38890000 
38900000 
38910000 
38920000 
38930000 
38940000 
38950000 
38960000 
38970000 
38980000 
38990000 
39000000 
39010000 
39020000 
39030000 
39040000 
39050000 
39060000 
39070000 
39080000 
39090000 
35100000 
39110000 
39120000 
391.30000 
39140000 
39150000 
39160000 
39170000 
39180000 
39190000 
39200000 
39210000 
39220000 
39230000 
39240000 
39250000 
39260000 
39270000 



INFORM «• FALSE; 



PRlNTMESSAGES ♦ 

go to succeed; 

END ELSE 
IF EQ(7,wORDC*3#0*WaRDSCi43,0) 

begin errdu^p «■ true; 
go to succeed; 

END* 

if equal? 8* wqrdt* 3*0* words co ]*0) 
begin anchqrmode * 21 
anchorsize ♦ 0* 
go to succeed; 

END ELSE 
IF EQC8*WORDC*3*0*WORDSn43*7) THEN % TRUNCATE* 
BEGIN IF SP < MKS+2 THEN GO TO FCTFAIL; 
INDIRECTCMKS+2); 



THEN 

X ERRDUMP 



THEN 

% UNANCHOR 



FILE 



IF AB.FILNO * THEN 



AB 
IF 



GO 



then % overflow* file 
to fctfail; 



IF AB.FILNO X THEN 



IF 



AA *: PSTCMKS+n; 
AB «■ I0CAA3* 

IF BOOLEAN(AB.OUTUSE) THEN 
BEGIN IQUA3.0VFL * 0; 

GO to succeed; 
end; 
go to fctfail; 

END ELSE 
IF EQC8*WORDt*3*0*WORDStl53*7} 
BEGIN IF SP < MKS+2 THEN GO 
INDlRECTCMKS+n; 
AA «• PSTtMKS + n; 

* iocaaJ; 

BOOLEAN(AB.OUTUSE) THEN 
BEGIN IQEAA3»QVFL * If 

GO TO succeed; 

end; 

to fctfail; 
end; 
% none with 9 chars 

EQUAL f 10 * WORD E* 3,0* WORDS [2 3* 7) 
BEGIN OIVIOEMODE * i; 

go to succeed; 
end; 
end; 
go to fctfail; 

end; % MODECV) 
21 * .NECA,B) 

% .neu*8> succeeds iff a 

begin segment 

if sp-mks < 2 then if not nullargsc 2-sp+mks) then 

if numval(pstemk$3#aa) and numvalcpstemks+1 3* ab ) 

then 60 to if aa t ab then succeed else fctfail; 
if printmessages then 

begin messageaico* m ne m *instnq); 

MeSSAGETTAI(0#"NE w #XN8TN0)J 

end; 
go to fctfail; 
end lne; 

22» ,NUM(A) 
* .NUMCA) SUCCEEDS IF A IS NUMERIC; THAT IS* IF A 
X A IS NOT NULL AND THE FIRST CHAR OF A IS '♦-♦' OR 



m 
m 



THEN 
% TRUNCATION 



AND B ARE BOTH NUMERIC AND A * i, 

go to fctfail; 



IS NULL* OR 
A DIGIT AND 



* 



• 
m 



m 
m 

m 



39280000 

39290000 
39300000 

39310000 

39320000 

39330000 X 

39340000 

39350000 

39360000 

39370000 

39380066 

39390000 

39600000 

39410000 

39420000 

39430000 

39446660 

39450000 

39460000 

39470000 

39480000 

39490000 

39500000 

39510000 

39520000 

39530000 

39540000 

39550000 
39560000 
39570000 
39580000 
39590000 
39600000 
39610000 
39620000 
39630000 
39640000 
39650000 
39660000 
39670000 
39680000 
39690000 
39700000 

39710000 

39720000 

39730000 

39746000 

39750000 % 

39760000 

39776000 

39710000 

39790000 

39866000 

39810000 

39820000 

398 30000 

39840000 



% THE OTHER CHARS OF A ARE ALL DIGITS* 

BEGIN SEGMENT 

IF MKS * SP THEN GO TO SUCCEED; 

GO TO IF NUMVAL(PSTCMKS3*AA) THEN SUCCEED ELSE FCTFA1LJ 
END LNUM; 
23 t 0PSYN(Sl#S2#T) 
X 0PSYNCS1>S2»T) CAUSES THE ALTERING OF THE ST 
% DESCRIBED BY Si AND T; THE QUANTITY NAMED BY 

* IDENTICAL TO THE QUANTITY NAMED BY $2. THE 

* ARE DETERMINED BY T AS FOLLOWS! 
X T IS NULL* SI AND S2 NAME 

* T STARTS WITH »F"| SI AND 
WITH M S M I SI ANO 
WITH "L M » SI AND 
VALUE OF THE QUANTITY NAMED BY 
USE IT MAY HAVE. THUS* OPSYN( w 

"A" (IF ONE DOES NOT ALREADY 
AND I/O USE OF B« OPSYN( w F"» 



MBOL TABLE ENTRY 
SI IS SET TO BE 
TYPES OF THE QUANTITIES 






% 
% 
% 
% 
% 
% 
% 
% 
% 
% 
% 



T STARTS 
T STARTS 
NOT ONLY THE 
ALSO ANY I/O 
A STRING NAMED 
TO A THE VALUE 



FUNCTIONS, 
S2 NAME FUNCT 
S2 NAME STRIN 
S2 NAME LABEL 



IONS, 

GS, 

S. 

S2 IS COPIEO* BUT 

A"#"B%"3 ,, > CREATES 

EXIST)* AND ASSIGNS 

"ARGH%"F M ) CREATES 

THE FUNCTION ARGH. 

LARLY* OPSYNCLl** 

S THE SAME STATEMENT 

IN A TRANSFER TO 






A FUNCTION NAMED "P", WHICH IS IDENTICAL TO 
ANY FORMER FUNCTION NAMED "P" IS LOST, SIMI 
# H L2 W * M L H ) CREATES A LABEL NAMED Ll» WHICH I 
AS L2. ANY TRANSFER TO LI WILL THEN RESULT 

a statement that is the same as l2. 
begin alpha i, type* 

if sp*mks < 3 then if not nullargsc 3-sp+mks) then go to fctfail* 
aa «• pstcmks + 2]* 
aa * valueaa3i 

if aa.s a then type * "fct" else 
Begin aa * chaR(firstcharcaa)}; 
type * if aa m "s m then "symb" else % 
aa * "f" then h fct* else x 

AA * W L M THEN "INST" ELSE OJ % 
THEN GO TO FCTFAILJ 



tt S « 
"L M 



IF 

IF 

IF TYPE ■* 

end; 

AA * PSTfMKSj; 

ab * valuuaj; 

ab * enterst<ab,s>datacab,r,*]>ab,ch,type>; 

aa * pst[mks + 13; 

ac * valucaa3j 

ac «■ entfrst(ac,s#0atacac.r»*3'ac.ch,type); 

AA * VALUtACj; 

I «• stringcaa,s*aB); 

MOVE(I.S#FlRSTCHAR(AA)*FIRSTCHAR(I)); 
VALUrABI <■ 1 & AAtlll»163; 

i0cab3 * i0tac3i 
go to succeed; 
end lopsyn; 

24* PAGE(N) 
* PAGECN) EJECTS THE LINE PRINTER FILE PRINT T 
X OR N > 11, PAGE FAILS, IF N m 0, CHANNEL 1 
X PAGE) IS USED. 
BEGIN SEGMENT 
IF SP > MKS+1 THEN % OUTPUT FILE AS 2ND PARAMETER 

BFGIN indirect<mks + d; 

AB «• PSTtMKS+13; 

IF VALUCAB3.I0USE = THEN GO TO FCTFAIL ELSE 
IF I2*IOCAB3,FILNOsO THEN GO TO FCTFAIL; 



STRING NAME 

FUNCTION 

LABEL 



• 

• 

# 



CHANNEL N« IF N < 
( THE TOP OF THE NEXT 



c 






39850000 
39860000 

39870000 
39880000 

39890000 
39900000 
39910000 
39920000 
39930000 
39940000 
39950000 
39960000 
39970000 
39980000 
39990000 

aooooooo 

40010000 
40020000 
40030000 
40040000 
40050000 
40060000 
40070000 
40080000 
40090000 
40100000 
40110000 
40120000 
40130000 
40140000 
40150000 
40160000 
40170000 
40180000 
40190000 
40200000 
40210000 
40220000 
40230000 
40240000 
40250000 
40260000 
40270000 
40280000 
40290000 
40300000 
40310000 

40320000 
40330000 

40340000 
40350000 
40360000 
40370000 
40380000 
40390000 
40400000 
40410000 



end else 12 * 3; % assume print, 
if sp ■ mks then ii «• 1 else 

IFGIN AA * PSTtMKSl; 

IF NOT NUMVAUCAAfll) OR 

IF II » THEN It ♦ l; 

END* 
RECOROII23 * II' 
GO To SUCCEED* 
END LPAGE' 
25 » POP(S) 
X POPCS) POPS THE VARIABLE S— I. E,< THE 
% STACK OF S IS REMOVED, IF S IN NOT A 
% BE POPPED (ONLY ONE VALUE IN ITS STACK 
X OUTPUT STRING* OUTPUT OCCURS, 
BEGIN SEGMENT 

IF 5P $ MKS THEN GO TO FCTFAIL; 
IF NOT PNAMFCMKSJ THEN GO TO FCTFAIL; 
GO TO IF POP(AA*PSTCMKSJ> 

then if boolean<valueaa].outuse) 
then if snbuoutcaa) 

then succeed 

ELSE FCTFAIL 

else succeed 
else fctfail' 
end lpop; 

26? PuSHCS*V) 

X PUSH(S.V) PUSHES THE VALUE OF V ONTO T 
STACK OF THE VARIABLE S. IF POPCS) IS 
TO ITS FORMER VALUE. PUSH FAILS IF S 
IF THE SYMBOL TABLE IS FULL (A FATAL E 
STRING* OUTPUT OCCURS. 

BEGIN SEGMENT 

if sp i mks then go to fctfail; 

not pnamecmksj then go to fctfail; 
to if pushcaa*pstcmks3»if sp-mks s 
then if boolean(valucaa].outuse) 
then if snblout(aa) 
then sucseeo 
else fctfail 
else succeed 
else fctfail; 
end lpush; 
27j ^remdr(a,b) 
x .remdr(a#b) returns 
x is nonnumfric* or b 

BEGIN SEGMENT 

IF SP-MKS < 2 THEN GO TO FCTFAIL; 

AA * PSTtMKSi; 

AB * PSTCMKS+13' 

IF NOTCNUMVAL(AA#AA) AND NUMV ALC AB* AB ) ) 

if ab ? o then go to fctfail; 

RETURNVAL . * T^MPVALCAA * (AA Div AB) x A 
GO TO SUCCEED' 

END lremdr; 

28» REWINDCF) 
X REWINDCF) CAUSES THE FILE ASSOCIATED H 
X IF $F ISNT AN I/O STRING* REWIND FAILS 



I1<0 OR I 1>1 1 THEN GO TO FCTFAIL; 






TOP VALUE ON THE PUSH-DOWN 
NAMED STRING OR IF S CANT 
)* POP FAILS, IF S IS AN 



X 
% 
% 
% 



IF 

GO 



HE TOP OF 
THEN EXE 
IS NOT A 
RROR), I 



THE PUSH-DOWN 
CUTED* S RETURNS 
NAMED STRING* OR 
F S IS AN OUTPUT 



1 THEN ELSE PSUMKS+U) 



THE QUOTIENT OF A / B, IF EITHER A OR B 
* 0* .REMOR FAILS. 



THEN GO TO FCTFAIL; 
8); 



ITH $F TO 



BE REWOUND. 



m * 






# 

• 



40420000 
40430000 
40440000 
40450000 
40460000 
40470000 
40480000 
40490000 
40500000 
40510000 
40520000 
40530000 
40540000 
40550000 
40560000 
40570000 
40580000 
40590000 
40600000 
40610000 
40620000 
40630000 
40640000 
40650000 
40660000 
40670000 
40680000 
40690000 
40700000 
40710000 
40720000 
40730000 
40740000 
40750000 
40760000 
40770000 
40780000 
40790000 
40800000 
40810000 
40820000 
40830000 
40840000 
40850000 
40860000 
40870000 
40880000 
40890000 
40900000 
40910006 
40920000 
40930000 
40940000 
40950000 
40960000 
40970000 
40980000 



% 
% 

% 
% 

% 
% 



IF 



IF 



BEGIN SEGMENT 
IF SP i MKS THEN 

INDIRECTCMKSH 

AB * I0CPSTCMKS13) 

IF AB.IOUSE 9 OR A 

REWlNOnoFIUCAB.FlL 

GO TO succeed; 

END INTRINSIC FUNCTI 
X29I RUUESCU 

RULES(L) RETURNS T 

THE! LAST TIME LEVE 

TOTAL FOR THE PROG 

RULE BEING EXECUTE 

L < OR L > MAXLE 

LEVEL L HAS NEVER 

BEGIN SEGMENT 

AA * IF SP > MKS 

AA * 

then u * o 

ELSE IF NOT NUMVA 
II < THEN GO TO 
RETURNVAL «* TEMPVALC 
GO TO SUCCEEOi 
END LRULESJ 
% 30t SlZE(S) 

% SlZECS) RETURNS TH 

BEGIN 

RETURNVAL * TEMPVALC 

go To succeed; 
end lsize; 
% 31! space(f#n) sets 
% so that any furthe 
% preceded by a skip 

* FOLLOWING SITUATIO 

% N NON-NUMERIC. 

% $F NOT AN I/O 

* $F A DATACOMM 
X NOTE THAT FOR MOST 
% FOR LINE PRINTER F 
BEGIN SEGMENT 
IF SP S MKS+1 THEN 
INDIRECT(MKS); 
AB * PSTtMKSi; 
AB * "XOCABJJ 

IF AB.IOUSE * OR A 
IF NOT NUMVALCPSTtMK 
IOSPACECaB'.FILNO] «• 

go To succeed; 
end lspace; 

* "32* TtME(N) 

BEGIN ALPHA ARRAY NU 
STREAM PROCEDURE TEM 
VALUE TH#TM#TS; 
BEGIN 01 * w; OS 

si «• loc th; ds <• 
si «• loc tm; DS «. 
Si <- LOC ts; os «. 



go to fctfail; 



B.IOTYPE * 1 THEN GO TO FCTFAlL; 

nod; 

on rewind; 

HE NUMBER OF RULES EXECUTED AT LEVEL L S1E 
L L WAS REACHED, IF L * (OR IS NULL)* THE 
RAM IS RETURNED, IF L S LEVELC )* THE CURRENT 
D IS INCLUDED IN THE TOTAL. RULES WILL FAIL IF 
VEL, NOTE THAT IF RULES(L) = "0", THEN THE 
BEEN REACHED. 



THEN PSTCMKSJ ELSE 01 



l(aa»i1) then go to fctfail; 
fctfail; 
if ii > maxlevel then else rulesch); 



E NUMBER OF CHARACTERS IN S. 

IF SP < MKS THEN ELSE VALUCP5TCMK5J3 .S> J 



A COUNTER FOR THE I/O FIlE BELONGING TO $F» 
R I/O OPERATIONS ON THIS FILE WILL BE 
PING OF N RECORDS. SPACE FAILS IN THE 
NSl 

STRING, 
I/O STRING, 

FILES, N < IS MEANINGLESS. ALSO* N ■ 
ILES CAUSES OVERPRINTING. 

IF NOT NULURGSC2) THEN GO TO FCTFAIL; 



B.FILNO = THEN GO TO FCTFAIL; 
S+13,I1) THEN GO TO FCTFAIL? 

n; 



mcouj; 

ps(th#tm,ts,w>; 

«• 8 LIT M *; 
2 dec; ds «. i lit ••:«; 

2 DEC; OS *■ 1 LIT "l"J 

2 dec; 






* 
m 
m 

m 






40990000 
41000000 
41010000 
41020000 
41030000 
41040000 
41050000 
41060000 
41070000 
41080000 

41090000 
41100000 
41110000 
41120000 
41130000 
41140000 
41150000 
41160000 
41170000 
41180000 
41190000 
41200000 
41210000 
41220000 
41230000 
41240000 
41250000 
41260000 
41270000 
41280000 
41290000 
41300000 
41310000 

41320000 
41330000 
41340000 
41350000 
41360000 

41370000 
41380000 
41390000 
41400000 
41410000 
41420000 
41430000 
41440000 
41450000 
41460000 
41470000 
41480000 
41490000 
41500000 
41510000 
41520000 
41530000 
41540000 
41550000 



END TEMPS! 
INTEGER TH»TM#TS; 
IE SP * MKS THEN 

IF NOT NuUARGS(l) THEN GO TO FCTFAIL) 
AB * PSTCMKSJJ 

IF NOT NUMVAL(AB,AA) THEN GO TO FGTFAlU 
IF AA < OR AA > 4 THEN GO TO FCTFAIU 
IF AA * THEN 

BEGIN 

AA * TlMECl) / 60; 

TH «• FNTIERCTEMP/3600); 

TM * FNTlERC(TEMP-THx3600)/60); 

TS «• AA - TH*3$00 - TMx60> 
TFMPSeTH,TM,TS#NUMC*]); 

eno else 

IF AA * 4 THEN 

Begin clear(num,2); 

II ♦• TIMf(4); 
ftvtl.»Il*-7->NUMC*l#!5>J 

ENO else 

begin returnval «■ tempvak time( aa } ) ; 

go to succeeds 

end; 
aa «• 16 - skipchar( m h »num[*3*0); 
returnval * tempcell! 
ac * stringcaa, returnval)) 
move(aa*nume*3*16»aa,firstchar(ac)>; 
valuereturnval3 * ac* 

60 To SUCCEED) 

end ltime; 

33 « traces(si#s2#s3#t».) turns on tracing for the strings 
% named by si* s2* s3* etc, all output is to the standard 
% output file* print. whenever any of the strings is altered* 

* output occurs giving the statement number* the string name* and 
% the new value, 
begin segment 
for i * mks step 1 until 
begin inoirecui); 

aa * psteij* 
valucaaj.iouse «• 1* 

iqcaa1 «• * 3 cfilno 

End; 

GO To SUCCEED* 
END TRACES) 
34J TRACEFCFl*E2*F3,,..) 



€ 

4 

i 

i 

* 
t 



SP-l DO 



& 2 CIOTYPE 4 1 CIOUSE; 



TURNS ON TRACING FOR THE FUNCTIONS 
CONTAINED IN Fl* F2* F3* ETC. AFTER THIS. 
IS USED* EACH CALL OF ANY OF THESE FUNCTIONS 

FILE* PRINT* GIVING 



X WHOSE NAMES ARE 

% UNLESS OETACHO 

X WILL PRODUCE OUTPUT ON THE STANDARD OUTPUT 

X THF INSTRUCTION NUMBER* THE FUNCTION NAME* 

X ALL THE PARAMETERS, 

BEGIN SEGMENT 

FOR I * MKS STEP 1 UNTIL SP-l DO 

BEGIN AA * PSTCli; 

AB * VALUCAAJ; 

ac * fnterstcab.s*datata8.r**]*ab;ch. m fct"); 

valucacj.iouse ♦• 3; 

iocac] * 4 2 ciotype 4 3 cfilno 4 3 ci0usej 



AND THE VALUES OF 



# 
# 






41560000 
41570000 
41580000 
41590000 
41600000 

41610000 
41620000 
41630000 
41640000 
41650000 
41660000 
41670000 
41680000 
41690000 
41700000 
41710000 
41720000 
41730000 
M740000 
41756000 
41760000 
41770000 
41780000 
41790000 
41800000 
41810000 
41820000 

41830000 
41840000 

41850000 
41860000 
41870000 
41880000 
41890000 
41900000 
41910000 
41930000 
419 30000 
41940000 
41950000 
41960000 
41970000 
41980000 
41990000 
42000000 

42010000 
42020000 
42030000 
42040000 
42050000 
42060000 
42070000 
42080000 
42090000 
42100000 
42110000 
42120000 



end; 
go to if death then fctfail else succeed* 
end tracffj 

35» tracel<l1 *l2>l3»,.») turns on tracing for the labels whose 
% names are contained in ll» l2* l3* etc. after this* unless 
% detacho ts used, each time any of these labels is encountered* 
* output on the standard output file* print* will occur* giving 
% the label and the number of times is has been encountered so 
% far during the programs execution, 
begin segment 

FOR I * MKS STEP 1 UNTIL Sp-l 00 
BEGIN AA * P5TU]! 
AS * VALUE AA J J 

AC «■ ENTERSTCAB.S*DATAtAB,R**3*AB ( 
VALUEAC3.0UTUSE * i; 
lOt.ACl * 4 2 CIOTYPE & 3 CFILNO 

end; 
go to if death then fctfail else succeed* 
end tRacfl; 

36* trimcs) returns the value of s with all trailing blanks deleted, 
begin stream procedure trim£ l> inc* size) ; value incj 

bfgin local s5* s6* s7* te^p; 



,CH*"INST")i 

& 1 ciouse; 



• 



IF 
AC 
AA 
AB 



DI 
01 

DT 

Si 



OS 
OS 
DS 



LABEL TEST* RETURN! 

si «■ size; si ♦ si + 

LQC S5; DI * 
LOC S6; DI ♦ 
LOC S7; DI «• 

l; si * si + 

S5(4(32(SI * SI + 
S6(2(SI * SI ♦ 32)); 

Si «• si * S7; 
TFSTI SI «■ si * i; 

IF SC i " " THEN GO TO RETURN* 

temp * si; 



5; 

DI ♦ 7; 
di ♦ 7; 

DI + 71 

inc; 
32))); 



chr; 
chr; 
chr; 



si 

IF 



* LOC S7; si «• 

SC m "0" THEN 

BEGIN 

SI 

IF 



si + 7; 



* LOC S6; si * si + 7; 

SC 9 "0" THEN 

BEGIN 

SI * LOC ss; SI ♦ SI + 

IF SC ■ M 0»* THEN GO TO 

TALLY 

end; 

TALLY * S6; 

end; 
tally «■ s7; tally * tally 
si «• temp; go to test; 
di * size; di * di * 

LOC ss; SI * SI + 7J 
LOC S6; SI «• SI ♦ 7; 
loc S7; si «- si + 7; 






7; 

return; 
♦ s5; tally * tally ♦ 63; s5 <• tally** 

tally * tally + 63; s6 * tally; 

♦ 63; s? *■ tally; 



RETURN* 

SI «• 

SI «• 

SI * 
END TRIM; 
Sp < MKS THEN 
*■ PSTIMKS3; 
* VALUCAC3; 

<• aa.s; 



5; 

DS 
DS 

DS 



chr; 
chr; 
chr; 



GO to succeed; 



c 



• 



42130000 
42140000 
42150000 
42160000 
42170000 

42180000 
42190000 

42200000 
42210000 
42220000 
42230000 
42240000 
42250000 
42260000 
42270000 
42280000 
42290000 
42300000 
42310000 
42320000 
42330000 
42340000 
42350000 
42360000 

42370000 
42380000 
42390000 
42400000 
42410000 
42420000 
42430000 
42440000 
42450000 
42460000 
42470000 
42480000 
42490000 
42500000 
42510000 
42520000 
42530000 
42540000 
42550000 
42560000 
42570000 
42580000 
42590000 
42600000 
42610000 
42620000 
42630000 
42640000 
42650000 
42660000 
42670000 
42680000 
42690000 



TRIM(FIRSTCHARCAA),AB); 

AC * TEMPCELL) 

AB * STRIN6(AB#AC)J 

VALUtAC] ♦• AB) 

MOVE(AB,S»FIRSTCHAr(AA),FIRSTCHAR<AB))) 

RETUrNVAL * AC) 

go to succeed; 
end ltrim) 

378 UNANCHC) 
BEGIN PTYPEC03 «• 2? 
PSIZEE03 * o; 
60 TO SUCCEED! 

END U.NANCHJ 
38« UNEQLfA*B) 

begin segment 
if sp*mks < 2 then 
ab * psttmks3) 
ac * pstcmks-hj) 

ab * valucab3) 
ac * valuiac3) 

GO To IF ABlS / ACS 

then succeed 

else tf equalcab.s*firstchar<ab)>firstchar<ac)) 
then fctfail 

else succeed) 
end luneqlj 

391 waltft) sets the waiting time for teletype i/o to t seconds. 
* if t is non-numeric or < 0* waitct) fails, 
begin segment 

returnval * tempval ( waittime/60) ) % return previous waittime. 
if sp > mks then if v alucpst [mks] 3 ,s > then % get new waittime 



« 



IF NOT NULURGSC2-SP + MKS) THEN GO TO FCTFAIL) 



€ 

m 
m 
m 
m 
m 



NOT NUMVALCP5UMKS]#AB) 
* AB x 60) 



OR AB < THEN GO TO FCTFAIL) 



SECONDS, IF 
IS CALLED. 



BEGIN IF 

waittime 

end; 
go to succeed) 

END WAIT) 
40* SUSPEND(T) SUSPENDS THE PROGRAM FOR T 
% AND THERE IS A TELETYPE ATTACHED* DEBUG 
BEGIN LABEL NEWINST) 
IF Sp > MKS THEN 

BEGIN IF NOT NUMVALCPSTC MKS 3 # AA ) THEN GO TO FCTFAIL) 
IF AA < THEN GO TO FCTFAlL) 
IF AA > THEN 

BEGIN WHEN(AA)) 
GO TO SUCCEED) 

END) 

END) 
IF NOT DATACOMF THEN FINOUSERS) 
IF DATACOMF THEN 

BEGIN SUSPEN0REAS0NC03 «• TRUE) 

DEBUGCNEWINST)) 

END) 

TO IF DEATH THEN FCTFAIL ELSE SUCCEED) 



T IS MISSING* 



• 
• 



• 
• 



GO 

NEWINSTl 

INSTf03 * 
FLOC * 5) 
ENTRY * 0) 



AA & H I M t30t42J63) % BUILD GO»TQ PART 
% SINCE INST[*3 HAS BEEN ALTERED, 



• • 



• 



• 



• 



02700000 
42710000 
42720000 
42730000 
42740000 
42750000 
42760000 
42770000 
42780000 
427^0000 
42860000 
42810000 
42820000 
42830000 
42840000 
42850000 
42860000 
42870000 
42880000 
42890000 
42900000 
42910000 

4 2920000 
42930000 
42940000 
42950000 
42960000 

42970000 
42980000 
42990000 
43000000 
43010000 
43020000 
43030000 
43040000 
43050000 
43060000 
43070000 
43080000 
43090000 
43100000 
43U0000 
4 3120000 
43130000 
43140000 
43150000 
43160000 
43170000 
43180000 
43190000 
43200000 
4 3210000 
4 3220000 
43230000 
43240000 
43250000 
43260000 



% TERMINATE CURRENT INSTRUCTION 



go to fctfail* 
end suspend; 

411 status(a*i) returns the status 

x given by a* which is either null 

INTEGER IN THE ALGOL 5TATUSCS*I> 
STATUS OF ALL ATTACHED TELETYPES 



OF ATTACHED TELETYPES* AS 
OR A TELETYPE ADDRESS, I IS THE 
FUNCTION, IF A IS NULL* THE 
IS RETURNED, 



THE FORM OF THE STATUS FOR ONE TELETYPE 15 1 

<STATUS> lt» C <PROJ#> / <USER#> 
WHERE <PROJ#>/<USER#> IS THE USER I, 
OF THE TELETYPE* ANO <CONDlTlQNS> IS 
WITH THE FOLLOWING MEANINGS* 



« 



! <TU> t <8A> 
0.* <TU>/<8A> 
A STRING OF 8 



I <C0NDITI0NS> } 
IS THE ADDRESS 
0*S OR 1"»S 



UNIT IS READY 
UNIT IS READ READY 
UNIT IS WRITE READY 
WRITE IS IN PROGRESS 
BREAK KEY USED DURING 



LAST OUTPUT 



abnormal condition sensed 

unit is busy 

seek in effect on station 

OF ALL TELETYPES IS RETURNED* 



1ST * 1 IF 

2ND * 1 IF 

3RD » 1 IF 

4TH * 1 IF 

5TH » 1 IF 

6TH « 1 IF 

7TH s 1 IF 

8TH * 1 IF 
WHEN THE STATUS 
THE VALUE lS» 

<STATUS> <STATUS> <STATUS> ... <STATUS> 

I, E»* THERE IS ONE <STATUS> FOR EACH ATTACHED 

STATUSC) FAILS lF» 

A IS NOT NULL* AND IS NOT THE ADDRESS OF AN 
A TS NULL' AND TO TELETYPES ARE ATTACHED 

BEGIN 

ALPHA ARRAY STTSCO 8 4*TTMAX 3 t X 

INTEGER ARRAY SlZEtO *TTMAX* J 3 j; 
INTEGER HIGH* LOW* N* STYPE* U; 
BOOLEAN ALL; 



THE FORM OF 

TELETYPE, 
ATTACHED TELETYPE 



FOR BUILDING STATUS STRING 

X HOLDS SIZES OF STATUS NUMBERS 



f 

c 
• 

• 



FINDUSERSI 

IF SP i MKS THEN ALL 

BEGIN X FIND UNIT 

AA 

IF 



IF 



* TRUE ELSE 
OR UNITS! 

* pstcmksi; 

valucaa3.s * then all * true else 

begin all * fal.se; x only one unit, 

if u*ttindex(aa) < then go to fctfail; 

end; 
end finding units; 
sp s mks*1 then stype ♦■ else 

IF NOT NUMVAL(PSTCMKS+13*STYPE> OR STYPE < OR STYPE > 1 
THEN GO TO FCTFAIL; 

N*NUMUSERS-1 < THEN GO TO FCTFAIL; 



IF 

LOW «. -li 

IF ALL THEN 

BEGIN LOW «• 0; 

HIGH «. n; 

END ELSE HIGH * LOW ♦ 
X UPDATE STATUS WORDS IF 
IF STYPE > THEN 

FOR I * LOW STEP 1 UNTIL HIGH DO 
STATU3 * STATUS(STATtl3*STYPE); 
X 
X OTHER INSTALLATIONS WILL WANT TO RE*DO 



u; 

NECESSARYJ 



THE I.D. PART OF THIS FCT 



m 
m 



m 
m 
m 
m 



m 
m 



m 
m 

m 



43270000 
43280000 
43290000 
43300000 
43310000 
43320000 
43330000 
43340000 
43350000 

43360000 
4 3370000 
43380000 
43390000 
4 3400000 
43410000 

43420000 
43430000 
43440000 
43450000 
43460000 
43470000 
43480000 
43490000 
43500000 
43510000 
43520000 
43530000 
43540000 
43550000 
43560000 
43570000 
43580000 
43590000 
43600000 
43610000 
43620000 
43630000 

4 3640000 
43650000 
43660000 
43670000 
43680000 
43690000 
43700000 
43710000 
43720000 
43730000 
43740000 
43750000 
4 3760000 
43770000 
43780000 
4 3790000 
43800000 
43810000 
43820000 
43830000 



% WRITE STATUS STRING* 
WRITE(STTSt*JtFSTAT»HlGH-LOW+l,rOR I 

CSlZECl#0]*DIGlTSCIDCn.Cl2»18]># 
IOEI3.E12»183* X PROJ # 

SlZECI*t3*DIGITSUD[I3.E30*18 3)* 
IDC I 3 ,C 30* 183* % USER # 

STZEEI*23*DIGITS(STATEI3.[9*43)* 
STATU3.r9«43# X TERMINAL UNIT 

SIZE C I# 31 *0I6ITS (STAT tll.t 14143)* 



LOW STEP 1 UNTIL HIGH 00 
% Z.D* PART 



% 



ItDt 
1,0. 
1*0* 



PART 
PART 
PART 



STATCI3.C14I43' % 

l»STATCI3,E30*13» % 

5TATCI3,C24*13* X 

STATEI3. [27*13* X 

ST ATE I 3. [29* 13* * 

STATH3. [26*13* X 

ST ATM 3, £23* 13* X 

STATEI3, [22*13* % 

STATtUtCiem])) X 
X CALCULATE SIZE OF STRING* 

ii * o; 

FOR I *■ LOW STEP 1 UNTIL HIGH 00 
BEGIN 11 * II + 14; % FOR "(/ 

* STEP 1 UNTIL 3 DO 

* II ♦ SIZECI*J3; 



BUFFER ADDRESS 

READY 

READ READY 

WRITE READY 

WRITE IN PROGRESS 

BREAK KEY ON LAST INPUT 

ABNORMAL CONDITION SENSED 

STATION BUSY 

SEEK IN EFFECT 



X CALCULATE SIZE OF 
/*)" & CONDITIONS 



STRING 



FOR J 
II 

END* 
SET UP 



• 



BE THE ADDRESS 
THIS TELETYPE* 



OF 



STRING FOR RETURN VALUE* 

RETURNVAL * TEMPCEUJ 

AA * STRING(H*RETURNVAL>» 
IF DEATH THEN GO TO FCTFAILJ 

M0VE(I1#STTS£*3,0»FIRSTCHAR(AA))1 

VALUtRETURNVALl * AA* 

60 to succeed; 
end status; 
42* user(a) or user* ) has two uses, if used without parameter* 

X IT RETURNS THE ADDRESS OF THE TELETYPE ON WHICH THE LAST TELETYPE 

X I/O TOOK PLACE. IF IT HAS A PARAMETER* IT MUST 

% AN ATTACHED TELETYPE; FURTHER OUTPUT WILL BE TO 

X AND THE VALUE RETURNED WILL BE A, 

BEGIN INTEGER TU* BA; 

ALPHA ARRAY A0DR£0*13; 

FINOUSERS; 

if not oatacomf then go to fctfail; 
if sp > mks then 

begin ii ♦ pstcmks3; 

IF VALUCI13.S i THEN 

BEGIN IF II * TTINDEXCII) < THEN GO TO FCTFAIL; 

user * n; 

end; 
end; 
12 * statcuser3,c9*93; 
wr itet adore *3*fttaddr*i*digitsu2 t [39 »43)* 12, [39*43* 

J*DIGlTSfI2,£44»43 3*I2,[44*43); 

I ♦ I ♦ J ♦ ii 
RETURNVAL * TEMPCELL; 

AB * STRINGU*RETURNVAL>; 
MVCI*ADDRC*3*0*FIRSTCHAR(AB>); 
VALUERETURNVAL3 * AB; 



i • 



# 

m 



m 



43840000 GO TO IF DEATH THEN 

43850000 END USER; 
43860000 % 43* SfEKCu) DOES A 

43870000 BEGIN SEGMENT 

43880000 IF SP S MKS THEN GO 

43890000 FINDUSERS; 

43900000 IF I*TTINDEX(PSTCMK 

43910000 AA * STATEHI 

43920000 SEEK(OCINCAA)); 

43930000 GO TO SUCCEED; 

43946060 END SEEK; 
43950000 I 44! RELEASEU) ELlM 

43960000 BEGIN SEGMENT 

4 3976666 IF SP S MKS THEN GO 

43980000 IF I*TTINDEX(PST I M« 

$3990000 RELEASE(STATCn); 

44000000 FINOUSERS; 

44010000 GO To SUCCEED; 

44020000 END RELEASE; 
44030000 % 45J REC0RD<FILE#N ) 

44040000 * OPERATION ON THE 

44050000 % N NON-NUMERIC 

44060000 X $FILE NOT AN 

44070000 BEGIN SEGMENT 

44080000 IF SP < MKS+2 THEN 

44090000 IF NqT NUMVAICPSTCM 

44100000 INDIRECT(MKS); 

44H0000 AA *• PSTfMKSi; 

44120000 AB «• I0CAA3; 

44130000 IF AB»I0USE * OR 

44140000 rec0rdcab.filn03 ♦ 

44150000 go to succeeo; 

44160000 end record; 
44170000 * 461 trace (name* type, 

44180060 go to undeffct; 
44190000 x 47» assigncs#v) ass 

44200000 % WIPED OUT, SlE A 

44210000 * USED. LITERALS S 

44220000 BEGIN 

44230000 IF 5P<MKS OR AA*PST 

44240000 IF Sp « MKS+1 THEN 
44250000 VALUCAA3.L0C * 1 
44260000 BEGIN 
44270000 AB * PSTrMKS+13; 
44280000 AC * VALUCABJJ 
44290000 I * AC.CH - 2i 
44300000 MvC2>AA,6,DATACA 
44310000 VALUCAAjlLOC * A 
44320000 VALUCAB1.LQC * 1 

4433660b end; 

44340000 GO To SUCCEED; 

44350000 END ASSIGN; 
44360000 % 48> COPY(S*N) PROOU 

44370000 BEGIN SEGMENT 

44380000 IF SP-MKS < 2 THEN 

44390000 AA * VALUtPST[MKS3 3 

44400000 IF NOT NUMVALCPSTtM 



FCTFAIL ELSE SUCCEED; 
READ SEEK ON TERMINAL UNIT U. 

TO FCTFAIL; 
S3) < THEN GO TO FCTFAIL; 

INATES TELETYPE A FROM THE LIST OF USERS, 



TO FCTFAIL; 
S3) < THEN GO TO FCTFAIL 



SETS THE RECORD POINTER FQ 
FILE SFILE. FAILURE OCCUR 

OR < 
I/O STRING (NOT TELETYPE) 

IF NOT NULUR6SC2) THEN GO 
KS*13»I1) OR II < THEN G 



; 



R THE NEXT I/O 
S IF! 



to fctfail; 
to fctfail; 



AB.FILNO * THEN GO TO FCTFAIL; 
Ii; 



FILE#FCT) 

IGNS THE VALUE OF V TO S, 
STRICT TRANSFER OF POINTER 
HOULO NEVER BE USED AS PAR 

EMKS3*0 THEN GO TO FCTFAIL- 

ELSE 



THE VALUE OF V IS 
S IS THE METHOD 
AMETERS TO ASSIGNC), 



C.R,I t W3,I.C); 

c; 

; % NECESSARY DUE TO CHECKSYMBTABL 



CES N COPIES OF S. IF N IS NOT * 0# COPY FAILSt 
IF NOT NULUR6S(2-SP + MKS) THEN GO TO FCTFAIL; 

; 

KS + 13,11) OR IKO THEN GO TO FCTFAIL* 



o 






m 

m 

m 
m 



44410000 

44420000 

44430000 

44440000 

44450000 

44460000 

44470000 

44480000 

44490000 

44500000 

44510000 

44520000 % 

44530000 

44540000 

44550000 

44560000 

44570000 

44580000 

44590000 

44600000 

44610000 

44620000 

44630000 

44640000 

44650000 

44660000 

44670000 

44680000 

44690000 

44700000 

44710000 

44720000 

44730000 

44740000 

44750000 

44760000 

44770000 

44780000 

44790000 

44800000 

44810000 

44820000 

44830000 

44640000 

44850000 

44860000 

44870000 

44880000 

44890000 

44900000 

44910000 

44920000 % 

44930000 

44940000 

44950000 

44960000 

44970000 



RETURNVAL * TEMPCELL* 

AC * STRlNSf Ux(J*AA»S), RETURNVAL)* 

IF DEATH THEN 60 TO FCTFAIL* 

12 * AC.CH* 

FOR I * 1 STEP 1 UNTIL II DO 

BEGIN MOVE(J#FlRSTCHAR(AA)#DATAtACiR#I2»W3»I2,C)l 

12 «• 12 ' ♦ j; 
END* 
VAlUtRETURNvAU * AC* 

60 to succeed* 
end copy; 

491 sfarch(file) does a disk search for $file* if $file is an i/o 
% string to a file) otherwise search fails, failure also occurs 
if the file is not present. if it is present, the value is of 

THE FOLLOWING FORM? 

<MFID> / <FID> » <SECURITY> t <REC SlZE> * <BLCK 5IZE> « 
<EOE ADDR> t <OPEN CNT> 
WHERE THE SECURITY STATUS, <SECURlTY>» IS DEFINED BY| 

<SECURITY> ll» <S> <R> <W> 



m 






<S> 


!!■ *i H IF 


USER CAN 


<R> 


Urn "1 H IF 


CAN READ 


<W> 


**= "l M IF 


CAN WRITE 



ALTER SECURITY STATUS 



X 

% 
% 
% 
% 
% 
% 
% 
% 

BEGIN 

ALPHA ARRAY ST[0*63* 

INTEGER ARRAY SIZEfll6)J 

IF SP < MKS THEN Go TO FCTFAIL* 

INOlRECT(tfKS)* 
AA *■ PSTtMKSJ; 

IF VALUUA3.I0USE«0 OR I«*I0C AAJ ,FlLNO*0 

SEARcH(I0FlLEtn*STC*3); 

IF 5TE03 < THEN 60 TO FCTFAIL* 

FOR J * 1*2 DO 

BEGIN II * SCANCHAR(« «,0*STCJ3»1)J 
SlZECJ] * IF II > 7 THEN 7 ELSE III 

End; 

FOR J «■ 3*4 DO STUJ * STt J3 * 8; % CONVERT 

FOR J «• 3*4,5*6 00 SIZECJ3 ♦ DIGITS? STN3 )* 

WRITECBUF0UT£*3*FDKSEARCH* 
SlZEtlJt SIZEC23* 

STC03:C45!13*STc03,C46J13,STC0 3,t47U3* 
FOR J •* 3*4,5,6 00 CSlZEE J3#STC J3 3 >* 

MVfSlZECl3*STtl3#l»8UF0UTt*3,0)l % <MFID> 

MV(SlZEE23*STC23*l,BUFOUTE*3.SlZEU3 + ni % <FID> 

II * 91 

FOR J «• 1 STEP 1 UNTIL 6 DO II * I1+SIZECJ3* 

RETURNVAL * TEMPCELLJ 

AA «* STRINGf I1*RETURNVAD* 

MOVEf Ii,8UFOUT£*3*0*FIRSTCHARCAA)3l 

VALU[RETURNVAL3 ♦ AA* 

GO TO succeed; 

END SEARCHI 
50J .RANF(N) PRODUCES A "RANDOM" NUMBER* 1 S 
BEGIN DEFINE K«7557#* C»t#* 
IF SP S MKS THEN GO TO FCTFAIL* 
IF NOT NUMVAL<PSTtMKS3*Il) OR II S THEN 60 
RANDNO «• REAL(BOOLEANCRANDNO*RANDNOxk + C) AND 



THEN GO TO FCTFAIL* 



TQ CHARACTERS 



.RANFCN) S N, 



TO FCTFAIL* 
B00LEANC33554431))* 



RETURNVAL «■ TEMPVALC I lxCRANDN0/33554432)+0 ,5 ) * 



• » 









44980000 GO To SUCCEED; 

44990000 END RANDOM FUNCTION; 

45000000 X 5*1 CLEAR?) SETS ALL VARIABLES 

45010000 BEGIN ALPHA K; 

45020000 INTEGER I* Jj" 

45030000 FOR I «• STEP 1 UNTIL SCATTE 

45040000 FOR J * STEP 1 WHILE J < 

45050000 BEGIN 

45060000 K * J & I CONCSTRJ 

45070000 DO IE NAMECKJ f TYPE a 

45080000 UNTIL K*NAMECK 3 .LINK 

45090000 END; 

45100000 GO TO SUCCEED; 

45110000 END CLEAR; 

45120000 END FUNCTION CASES; 

45130000 X********INTRINSIC FUNCTIONS**** 

45140000 %******************************* 

45150000 GO TO UNDEFFCTJ 

45160000 0EF1NEDFCTJ % PRQ6RAM-DEF INED 

45170000 BEGIN 

45180000 LABEL TOODEEP* RET; 

45190000 BOOLEAN FCTFAILURE; 

45200000 ALPHA ARRAY 

45210000 PRESERVEC0»5#QJSTACKSIZE3# 

45220000 LVSC0J73J 

45230000 ALPHA LV» Kj 

45240000 % IF INFORM THEN INF0RM0C5); 

45250000 FCTFAILURE * FALSE; 

45260000 M0VEWDS(30*8ACKREFLAG#PRESERV 

45270000 MOVEWDS(SP#PNAMEC* J 'PRESERVE C 

45280000 MOVEwDSCSP'PPOINTt* 3 'PRESERVE 

45290000 MOVEWDSC$P»PSIZEC*J*PRESERVEC 

45 300000 M0VEWDS(SP*PTYPEC*1 'PRESERVE C 

45 310000 MOVEWDSCSP'PSTC* 3 'PRESERVE C 5' 

45320000 MVCJ«-FCTV»S#DATACFCTV,R*FCTV, 

45330000 % ASSIGN TO TEMPORARY LQCSt 

45340000 FOR I * SP * 1 STEP -1 UNTIL 
45350000 BEGIN 
45360000 K * PSTCI3I 

45370000 AA «• TEMPCELU 

45380000 AB ♦ STRIN6( VALUEK3 ,S* AA ) ; 

45390000 K * VALUCK3; 

45400000 VALUCAA3 ♦ AB; 

45410000 MoVE(SfRINGLOC(K)'FIRSTCHA 

45420000 PSTtll * AAJ 

45430000 end; 

45440000 % push params & loc vars and 

45450000 MV(2*LVSt*3#0*LV*6); 

45460000 IF NOT PuSH(LV'O) THEN GO TO 

45470000 IF NOT CHECKOUTUSECLV ) THEN F 

45480000 K *• 21 I «• MKS ; 

45490000 J * J - 21 

45500000 FOR K ♦ 2 STEP 2 UNTIL J 00 

45510000 BEGIN 

45520000 MV(2*LVSf*3»K»LV'6); 

45530000 IF NOT PlJSHCLV'IF I<SP THE 

45540000 IF NOT CHECKOUTuSECLV ) THE 



TO NULL* AT THEIR TOP LEVEL ONLY, 



RNO DO 
SCATTERSIZE DO 



THEN VALUCK3.L0C «- 

* o; 



******* 
******* 

FUNCTION 



ECO, 163)1 X INTERPRETER VARIABLES 

1**3); 

C2»*3); 

3**3)1 
4**3); 

*3); 

W3*FCTV.C'LVS[*3,0); 
MKS DO IF PNAMECI3 THEN 



R(AB)); 



assign values; 

fctfail; 
ctfailure «• true! 



N PSTCI3 ELSE 0) THEN GO TO FCTFAIL* 
N FCTFAILURE * TRUE; 



• 



• 



# 

• 



45550000 
45560000 
45570000 
45580000 
45590000 
45600000 
45610000 
45620000 
45630000 
45640000 
45650000 
45660000 
45670000 
45680000 
45690000 
45700000 
45710000 
45720000 
45730000 
45740000 
457S0000 
45760000 
45770000 
45780000 
45790000 
45800000 
45810000 
45830000 
45830000 
45840000 
45850000 
45860000 
45870000 
45880000 
45890000 
45900000 
45910000 
45920000 
45930000 
45940000 
45950000 
45960000 
45970000 
45980000 
45990000 
46000000 
46010000 
46020000 
46030000 
46040000 
46050000 
46060000 
46070000 
46080000 
46090000 
46100000 
46110000 



I <• I 

END; 
IF FCTFA 
IF OFATH 
FOR T «■ 
8FGIN 
TfMPL 
END; 
ENTRY ■♦ 
IF ENTRY 
% 

INTERPRE 
X 

MOVEWDSC 
MQVEwDSC 
MOVEWDSf 
MOVEWDS( 
MOVEWOSC 
MOVEWDSC 
FOR I «■ 
TEMPLIST 

MVC2,LVS 
RETURNVA 
IF DEATH 
AB «• VAL 
IF A8.CH 
BEGIN 
MVC2. 

end; 

VALUtRET 
X THE VA 
% LV (HI 

% OUT BY 

RET* J *. FC 

FOR K * 

BFSIN 

IF NO 

IF 



♦ i; 

ILURE THEN GO TO RET; 

THEN OIEJ 
STEP 1 UNTIL 

PRESERVEtO>n 
iSTtll * 0) 



15 DO IF USEDSTU3 
* TEMPLISTCH; 



THEN 



€ 

• 
* 



FCTV.LINKJ 
* THEN GO TO UNDEFFCT; 



ter; 



X CALL FUNCTION 



IF NO 

end; 

X IF INF 

ptypetmk 

GO TO IF 
IF RE 

TOODEEPt 
MfSSA 

messa 
die; 

END OEFI 
UNDEFFCT* 
BEGIN SE 
WRITECPR 
WRITE(BU 
AA * NAM 



30#PRESERVEC0M6]#BACKREFLAG)I X INTERPRETER VARIABLES 

SP#PRESERVEEl**3#PNAMEt*3>; 

SP*PRESERVEC2'*3*PP0INTC*3); 

SP*PRESERVEt3»*3»PSIZEE*3); 

SP#PRESERVEt4#*3»PTYPE[*3); 

SP#PRESERVEC5#*3#PSTt*3); 

STEP I WHILE I i 15 ANO USEDSTCI3 00 

cn * preServeech; 

C*3*0»LV*6); 

L * TEMPCELL; X TO SAVE VALUE RETURNED. 

THEN GO TO FCTFAIL; 
TABLCLVfSTR,LV,STW3; 

% 3 THEN X MOVE POINTER 

I * ABtCH - 2} 

returnval*6»dataca8.r*i.w3#i,c); 

urnval3 * ab.loc; 

lue is now in the temporary location; the symbtabl loc 

th same name as fct) is invalid* but will soon be wiped 

the call of popclv), 
tv.s - 2; 
step 2 until j do 

MVf2»LVS[*3>K#LV#6>; 

t popuv) then 

printmessages then 

begin messagei(20,instn0); 

messa6ettk20,instn0>; 

end; 
t checkoutuse(lv) then fctfailure * true; 

orm then inf0rm0c6); 
S3 * i; 

FCTFAILURE THEN FCTFAIL ELSE 
SULT THEN SUCCEED ELSE FCTFAIL; 

X FUNCTION DEPTH > MAXLEVEL 
GEimVINSTNQ); 

gettic11»instn03; 

ned; 

x undefined function called 
gment 

INTCOBLltFBL); 

F0UTC*3#FUNDEFFCT); 

EEFCT3; 



« 



« 



< « 






46120000 
46130000 
46140000 
46150000 
46160000 
46170000 
46180000 
46190000 
46200000 
46210000 

46220000 
46210000 

46240000 

46230000 

46260000 

46270000 

46280000 

46290000 

46300000 

46310000 

46320000 

46330000 

46340000 

46350000 

46360000 

46370000 

46380000 

46390000 

46400000 

46410000 

46420000 

46430000 

46440000 

46450000 

46460000 

46470000 

46480000 

46490000 

46500000 

46510000 

46520000 

46530000 

46540000 

46550000 

46560000 

46570000 

46580000 

46590000 

46600000 

46610000 

46620000 

46630000 

46640000 

46650000 

46660000 

46670000 

46680000 



M0VE(I*MlN(AA t 5»l0O)#FlRSTCHARCAA)#8bFOUTC*J#29); 
WRITECPRINTCDBU#i7#BUF0UTE*]>; 
IF OATACOMF THEN * WRITE ON TELETYPE! 
BEGIN 1*1+ 29; 

MVC2,CRLF*5*DCJRITEC*3>0)J X "£*" 
MOVECI#8UFOUTC*3>2*DCWRITEE*3#2>* X MESSAGE 
Mv(3*CRLF»5#DC»RlTEtI.H3#ItC*2); X W SX«-" 
IF OUTPUT THEN) 
IF DEBUGGING THEN X SUSPEND 

BEGIN SUSPENDREASONC33 * TRUE; 

DEBUGeSETGO); 

FCTV * VAlUtFCn; X RETREIVE NEW OEF.# IF ANY. 

go to branch; % t ry to execute, 

end; 
end; 
die; 
end; 
fctfail? x farure exit for functions 

if boouancvalucfctj.outuse) then 

if tracefctreturn(fctffalse) then; 
far; 

SUCCEED: 

PSTCMKS3 *■ RETURNVAU 

IF B00LEAN(VALU£FCT3.0UTUSE) THEN 

IF NOT TRACEFCTRETURN(FCT,TRUE) THEN FAIL; 

PNAMECMKS3 * FALSE; 

SP * MKS ♦ i; 

RELATIVEPOINTER ♦ 4; 

go To pscan; 
end function; 
x********funCtton**************************** ***************** ********** 

X******#*LITERAL************************ 
X lit "f" LITERAL* 

* 2-CHAR POINTER TQ SYMB TABLE LOC, 

BEGIN PTYPEESP3 * II 

PSTCSP3 * TEMP.C18J123; 

pnametsp3 * falsei 
sp ♦ sp ♦ i; 
RELATIVEPOINTER * 3; 
60 TO pscan; 
end; 



i 

i 
m 



m 



m 

m 



X**** 
X 121 

BE 
MV 
IN 
SL 
FL 
IN 
NE 
X 

IF 

GO 

EN 

X**** 

X**** 



****LITERAL************************ 
****QMARK************************* 

©MARK END INST, NO 60-TO PART 
GIN 

(6,C0NTR0LP0INT+1,AA,2); 
STfgO * AA.C12U2J; 
OC * AA.C24U23I 
DC «• AA.C36U23* 

STRUCT * (NEARP0INT*NEARP0INT+7),W + INSTRUCT! 
APPOINT * NEARPOINT.C; 
IF INFORM THEN CHECKSYMBTABL; 

RULESCLEVEL3.C * 7 THEN RETURNTEMpS; 

to interpret; 

d; 

****QMARK************************** 
****QO«TO************************** 



• 



© 






• 



* 



46690000 
/{6700O00 
46710000 
46720000 
46730000 
46740000 
46750000 
46760000 
46770000 
46780000 
46790000 
46800000 
46810000 
46820000 
46830000 
46840000 
46850000 
46860000 
46870000 
46880000 
46890000 
46900000 
46910000 
46920000 
46930000 
46940000 
46950000 
46960000 
46970000 
46980000 
46990000 
47000000 
47010000 
47020000 
47030000 
47040000 
47050000 
47060000 
47070000 
47080000 
47090000 
47100000 
47110000 
47120000 
47130000 
47140000 
47150000 
47160000 
47170000 
47180000 
47190000 
47200000 
47210000 
47220000 
47230000 
47240000 
47250000 



ADDRESS OF THE NEXT INST. 

♦ i; % BUMP REFERENCE COUNT. 

IS BEING TRACEDI 



% 13 J "I" GO-TO 
BEGIN 

AA * AA.C18J123J 
SETGOI 

* AA MUST CONTAIN THE SYMBOL TABLE 
VALUtAAJ.LlNK * ( AB*VALUt AA 3) , LINK 
IF BOOLEANUB.OUTUSE) THEN % LABEL 
BFGIN SEGMENT 
AC «- NAMECAAi; 

11 * MINCAC.S#63)J 

12 * il * 3 - Il t £46t23J 
I «• A8.LINK + II 
WRITF(BUF0UTC*3#FTRACEL>I2*DIGITS(I),IM*DIGITSUNSTN0),INSTN0>; 

mv(i1#firstchar(ac)»buf0utc*3*33? 

write(print#f8l)j 

write( print [nqj#17>buf0ute*j)j 

end label tracing output* 
if entry * aa then 

BEGIN 

ENTRY * AA! 

IF I «• AB#S < 7 THEN 60 TO UNDEFINED* 

IF I i 63 THEN 

MVf I#FIRSTCHAR(A8)*INSTC*3#0) ELSE 

M0VE(I*FIRSTCHARCAB)#INSTC*3*0)I 

End; 
mvc6>instc*1*3#aa#2); 
instno «■ aa.c12u21j 

SLCC * AA»t24tl23) 

FLOC * AA.C36U21J 

INSTRUCT . * RELATIVEPOINTER «■ 01 

NEARPOINT * 91 

% if inform then checksymbtablj 
if rulestlevel3.c * 7 then returntemps; 
if debugging then * check label limits 
for i * step 1 until nlabellimit 00 
if entry ■ labellimitci3 then 

begin suspendreas0ne2] ♦ true* 

debugcsetgo); 

go to interpret; 

end; 
go to interpret; 
end; 

%********GQ» TO ************************** 

;*** ;*;*;*; 

%********INpUT CHECK******************** 
% 25» M I" CHECK INPUT USE OF LAST ELEMENT 

BEGIN AA * PSTtSP-13; 

IF 800LEANCVALUCAA3.INUSE) THEN IF NOT SNBLINCAA) THEN FAIL; 

RELATIVEPOINTER * 1* 

60 TO PSCAN* 

end; 
********* input check******************** 

X******** ARITHMETIC ************ ********* 
% 261 "I" ARITHMETIC OPERATOR 

BEGIN 

INTOvR * ARITHOVFL; 

EXPOvR * ARITHOVFL; 






* 
m 



# 
m 






47260000 
47270000 
47280000 
47290000 
47300000 
47310000 
47320000 
47330000 
47340000 
47350000 
47360000 
47370000 
47380000 
47390000 
47400000 
47410000 
47420000 
47430000 
47440000 
47450000 
47460000 
47470000 
47480000 
47490000 
47500000 
47510000 
47520000 
47530000 
47540000 
47550000 
47560000 
47570000 
47580000 
47590000 
47600000 
47610000 
47620000 
47630000 
47640000 
47650000 
47660000 
47670000 
47680000 
47690000 
47700000 
47710000 

47720000 
47730000 
47740000 
47750000 
47760000 
47770000 
47780000 
47790000 
47800000 
47810000 
47820000 



CASE 00TTYPECAA.C3] OF 

BEGIN 
% 01 ERROR 

GO TO RERROR* 
% It ".N" NEGATION! 

BEGIN 

IF (MKS*SP*1) « THEN GO TO PERROR; 

IF PTYPETMKS3 * -1 
THEN AB * PST[MKS3 
ELSE IF NOT NUMVALCPST CMKS3* AB ) THEN GO TO NQNNUMERIC; 

PSUMKS3 * -AB) 

PTYPEfMKS] * "U 

End; 
% 2« arithmetic operator! 

BEGIN 

IF fMKS*SP*25 < THEN GO TO PERROR; 

IF PTYPEEMKS1 * "1 

THEN A8 * PSTCMKS3 

ELSE IF NOT NUMVALCPSTCMKS3* AB ) THEN GO TO NONNUMERIC; 

PTYPErMKS*!! * -1 



• 



IF 



IF 
IP 
IF 
IF 



THEN AC 
ELSE IF 

I*AA#C3 
I * **"« 



«■ PSTCMKS + U 

NOT NUMVAL(PST[MKS + n#AC) THEN 

• "♦» THEN II * AB ♦ AC ELSE 



GO TO NONNUMERIC* 



• 



*v*» 



THEN 
THEN 
THEN 



II 
II 
IF 



* AB 
«• AB 
AC*0 
OF 



I » 

I * « 

CASE DIVIDEMODE 

BEGIN 
% 01 ROUNO 

it * ab/ac; 

% 11 TRUNCATION 

a * entiercab/ao; 

X 2* INTEGER 

IF (I1*AA«.AB/AC) 
END DIVIOE CASES 



» AC 
x AC 

THEN 



ELSE 
ELSE 
GO TO 



DVDZERO ELSE 



* ENTIERCAA) 
ELSE 



THEN FAIL 



IF 



I = "*" THEN 

IF AC * THEN II *■ 1 ELSE 
BEGIN 

if ac < then 

begin ac * *acj 

aa * i/ab; 

end else aa * ab; 
for i * 1 step 1 until ac 00 aa * aa x ab; 
II ♦ aa; 



m 
« 
m 



END ELSE 
GO TO PERRQR; % INVALID CHAR AFTER 

pstc'mksj ♦• III 
ptypecmksj * "i; 
end; 
3» "",s"' convert to string 

BEGIN 

IF MKS*SP*1 < OR PTYPECMKSJ / -1 THEN 
BEGIN INF0RM0C9); 

GO TO perror; 

end; 

PST[MKS] * TEMPVALCPSTCMKS3); 
PTYPE[MKS1 * U 



ft W 










• 



# 

• 



478 30000 
47840000 
47850000 
4786.0000 
47870000 
47880000 
47899000 
47900000 
47910000 
47920000 
47930000 
47940000 
47950000 
479*0000 
47970000 
47980000 
47990000 
48000000 
48010000 
48020000 
48030000 

480400.00 
48050000 

480*0000 
48070000 
48080000 
48090000 
48100000 
48110000 
48120000 
48130000 
48140000 
48150000 
48160000 
48170000 
48180000 
48190000 
48200000 
48210000 

48220000 
48230000 

48240000 
48250000 
48260000 
48270000 
48280000 
48290000 

48300000 
48310000 
48320000 
48330000 
48340000 
48350000 
48360000 
48370000 
48380000 
48390000 



PNAME 
ENO 
EnD a 
X 

SP * MKS 

RELATIVE 

INTOvR * 

GO TO PS 

ARlTHOVFLt 

IF PRINT 

BEGIN 

MFSSA 

end; 

FAIU 
NONNUMERICS 

IF PRINT 
8FGIN 
MeSSA 

end; 
fail; 

DVDZEROJ X 
IF PRINT 
BFGIN 
MfSSA 

eno; 
fail; 

END ARIT 
X********AR 

;; 

X********GR 

% 29 t M (° 

BEGIN 
MKS * SP 

ii * o; 

FOR I «• 
BEGIN 

I «■ I 
IF PT 

BE 
SY 
GO 
EN 
AA .■«■ 

II * 

End; 

AC * TEM 
VALUCAC3 

11 * AB, 

12 * AB. 
FOR I «• 

BFGIN 
I «■ I 
AA * 
AA + 
IF J* 
BE 
IF 



tMKS3 * false; 

RITH CASES; 

■+'■ i ; 

POINTER ♦ 2; 
O; 

can; 

X INTEGER OVERFLOW IN ARITHMETICS 
MESSAGES THEN 

MESSAGEI(0#INSTNO); 
6ETTI(0#INSTN0); 



X NON-NUMERIC ARGUMENT TO ARITHMETIC* 
MESSAGES THEN 

MESSAGEK17>INSTN0); 
GETTI(17#INSTN0); 



OIVIDE'BVZERO IN ARITHMETIC 
MESSAGES THEN 

MESSAGEI(18»INSTN0); 
GETTIC18*INSTN0); 



HMETIC; 
ITHMETIC********************* 

OUPING*********************** 
GROUPING 

- AA.C3I 

X TO KEEP SIZE IN 
MKS STEP 1 UNTIL SP-1 DO 

; 

YPEtll * 1 THEN 

gin inf0rmh1»ptypeu3>; 
stemerror * true; 
to dead; 

d; 
psteh; 

II + VALUtAAJ.S; 
PCELL* 

* AB * stringcii*ao; 
ch; 

r; 

mks step 1 while ksp 00 

; 

pstcU; 
valucaai; 

AA.S > THEN 
GIN 
J 4 63 THEN 



• 



m 
m 



m 
m 



• 






• 



48400000 
48410000 
48420000 
48430000 
48440000 
48450000 
48460000 
48470000 
48480000 
48490000 
48500000 
48510000 
48520000 
48530000 
48540000 
48550000 
48560000 
48570000 
48580000 
48590000 
48600000 
48610000 
48620000 
48630000 
48640000 
48650000 
48660000 
48670000 
48680000 
48690000 
48700000 
48710000 
48720000 
48730000 
48740000 
48750000 
48760000 
48770000 
48780000 
48790000 
48800000 
48810000 
48820000 
48830000 
48840000 
48850000 
48860000 
48870000 
48880000 
48890066 
48900000 
48910000 
48920000 
48930000 
48940000 
48950000 
48960000 



MV(J#FIRST 
M0VECJ#FIR 

II «■ II + JJ 

END* 

end; 

PSTEMKS3 *• AC J! 

SP * mks «■ i; 

PNAMECMKS3 * FALSE; 
RELATIVEPOINTER * 2 
00 To PSCANJ 
END; X GROUPING 
%******** GROUPING**** * 



CHAR(AA)*QATAtI2Ml,W3#Il,C) ELSE 
STCHAR(AA)#DATAtI2»IltH3#Ii,C)J 



i 



; 



****************** 



X********R(f ^PLACEMENT ************** ****** 

OR ASSIGNMENT 
ER * 11 

% STR REF USED AS STR VAR 



31 » "*" REPLACEMENT 
BEGIN RELATIVEPOINT 

IF sflfreflag then 

BEGIN 

IF PRINTMESSAGES 

begin message 
messa6etth3* 

end; 

GO TO goto; 

end; 
% if inform then in 
size * cab<-valta8lc 
noreplaces * sp « 1 
% calculate size of 

FOR SP ♦ 1 STEP t U 
BEGIN AA * PSTtS 
II * VALUEAA3.S; 
RSIZE * RSIZE + 



THEN 
IC3,INSTN0>; 
INSTNO); 



• 



% 
% 
IF 



end; 

IF NEW 

CAN BE 

RSIZE 

BEGIN 

AA * 



STR REF IS 
USED. AB 
> SIZE THE 
Sl * TRUE; 
STRINGCRSIZ 



% 
% 
I 
J 
IF 



ab * valtablcref 
end else 

BEGIN it ♦ FALSE 
IF RSIZE < SIZE 

AA «• ab; 

end; 

aa points to new 
ab points to old 
«• aa.r; 

«■ ab.r; 

b\ then if front 

IF 



FRONTENO i 63 

MV(FRONTEND#D 

MOVECFRONTENO 

II *■ FRONTENO ♦ AA, 

% REWRITF MATCHED P 

FOR SP * 1 STEP 1 U 

BEGIN AC * PSTtS 

AC * VALUCAC3; 



FQRM0C3); 
REFl«"PSTC0J i STR#REFJ«.PSTC03.STW3>,SJ 

; 

NEW STR REF J 
NTIL NOREPLACES DO 

pi; 

III 

NOT LARGER THAN THE OLD* THE SAME STRING 
STILL POINTS TO THE STR REF, 
N 

% STR REE IN NEW STRING 

E»PSTC03)I 
I»REFJ3; 

I % USE SAME STRING FOR STR REF, 
THEN VALTABLCREFI*REFJ3,S * RSIZEI 



VALUE. 
VALUE. 



END > THEN 

THEN 
ATAU,AB.W3#AB.C#DATAU>AA.W3>AA,C) ELSE 
,DATAU>AB.W3#AB.C>DATAn#AA,w3>AA.C); 
CHI X POINTER TO NEXT CHAR TO BE OVERWRITTEN, 

ORTIONI 

NTIL NOREPLACES DO 
P3; 





m 

m 



• 



48970000 
48980000 
48990000 
49000000 
490j0000 
49020000 
49030000 
49040000 
49050000 
49060000 
49070000 
490A0000 
49090000 
49100000 
49110000 
49120000 
49130000 
49140000 
49150000 
49160000 
49170000 
491^0000 
49190000 
49200000 
49210000 

49220000 
49230000 
49240000 
49250000 
49260000 

49270000 
49280000 
49290000 
49300000 
49310000 
49320000 
49330000 
49340000 
49350000 
49360000 
49370000 
49380000 
49390000 
49400000 
49410000 
49420000 
494 30000 
49440000 
49450000 
49460000 
49470000 
49480000 
49496000 
49500000 
49510000 
49520000 
49530000 



IF U?*AC.S) > THEN 

BEGIN IF 12 S 63 THEN 



BEGIN IF 12 S 63 THEN 

M.Vf l2#DATACAC,R,AC.W3#ACtC#OATACI»Il.W3*Il.C> ELSE 
M0vEM2»0ATAtAC.R*ACtWJ,AC.C#DATACI#Il.H]#U,C)J 

II * II ♦ 12; 



end; 
end; 



if 



IF 
IF 

GO 

END 
%♦♦♦*♦ 

;;; 

% 35» 

BEG 
IF 
AA 
AA 

GD 

END 

%♦♦♦** 

t t 9 
it* 

X 421 
8EG 
X I 
IF 



REAREMD > THEN IF 81 OR RSIZE * SIZE THEN 

BEGIN 12 * AB.CH + SIZE - REAREND; 

IF REAREND > THEN IF REARENO S 63 THEN 

■MV(«AREND#DATACJ#I2,W3*ia.C»DATACI»Il.WJ»IliC) ELSE 
MOVE«REARENO#DATACj*l2.W3tl2,C»DATAtI#Il.W3#Ii.C)l 

END? 

81 THFN VALTABltREFI#REFJ3«L0C * AA; 

BOOLEAN(AB.OUTUSE) then 

if not sn8l0utcpstc01) then go to failed; 
to goto; 



♦♦♦REPLACEMENT******************** 

***LABEL INDIRECTION************** 

M L" INDIRECT TO PRODUCE LABEL 

IN 

SP K 1 THEN GO TO PERROR? 

«■ VALUtPSTt033; 

* ENTERST (AA.S,DATACAA.R**3^AA,CH» M INST W ); 

TO SETGO; 

; 

***LA8EL INDIRECTION************** 

;;; 

♦•♦INDIRECTION******************** 

"$ M INDIRECTION 

IN 

F INFORM THEN INF0RM0C16); 

CSP«-SP-1> < THEN 

BEGIN INF0RMI(23,INSTN0); 

systemerror ♦ inform * true; 

go to dead; 

end; 

A8 * PSTfSp}? 

FOR I * AA.C3 STEP »1 UNTIL 1 
BEGIN 

AC * VALUEA83; 
IF BOOLEANCAC.lNUSE) THEN 
BEGIN IF NOT SNBLIN(AB) 
AC ♦ VALUCABi; % INPUT 

end; 

printmessages then if ac,s 

begin messagek19#instn0); 

messagetti(19#instn0); 

end; 

* enterstcac.s,0atacac.r#*3*ac.ch,♦'symb' , ); 

death then go to dead; 
end; 
pstcsP3 #. ab; 
pnamecsp] ♦ true; 
sp «• sp + 1; 



C 
€ 

€ 

i 

€ 
t 
t 

m 
m 



m 



IF 



AB 

IF 



00 



THEN GO TO FAILED! 
MAY MQvE VALUE 



* THEN 



# 



• 



49540000 
49550000 
49560000 
49570000 
49580600 
49590000 

49600000 
49610000 
49620000 
49630000 
49640000 
49650000 
49660000 
49670000 
49680000 
49690000 
49700000 
49710000 
49720000 
49730000 
49740000 
49750000 
49760000 
49770000 
49780000 
49790000 
49800000 
49810000 
49820000 
49830000 
49840000 

49850000 
49860000 
49870000 
49880000 
49890000 
49900000 
499 J 0000 
49920000 

49930000 

49940000 

49950000 

49960000 

49970000 

49980000 

49990000 
56OO6O60 

50010000 
50020000 
500 3000 
50040000 
50050000 
50060666 
50070000 
50080000 
50690660 
50100000 



RE 

GO 

EN 

%*** + 

%* + * + 

% 43: 
BE 
RE 
VA 
SP 
CA 



perror; 

VAR 

PTYPECSPJ 
«■ O; 



«• 2; 



«■ 4; 



SP 

GO 

EN 
%**** 

% * # # * 

X 441 

IF 



IF 



IF 



it 

%*** + 

% 491 

GOTO' 

BE 



LATIVEPOINTER * 2i 

TO PSCAN? 
O; 

♦♦••INDIRECTION******************** 
♦ ♦ * * S T R VAR************************ 

"*" STRING VARIABLE 
GIN 

LATIVEPOINTER * 2i 
RFlAG * TRUE! 

«• SP - 1) 
SE AA.C3 OF 

BEGIN 
ERROR 

GO TO 
1* AR8 

BEGIN 

PSIZECSP] 

ENOJ 
21 BAL VAR 

BEGIN PTYPEtSPl 

PSIZECSP3 * i) 

end; 
31 fixed-length 

BEGIN 

% IF SIZE < THEN RULE FAILS, 

IF CIF PTYPECSPJ * 7 

THEN I1«-PSTCSP3 < 

ELSE NOT NUMVAL(PSTtSP3*lU OR IKO) 
THEN 60 TO FIXERR; 
PSIZEtSP*SP»13 * III 
PTYPE[SP] * 31 

end 

end var casesi 

* sp + i; 

TO PSCANJ 

0) 

****STR VAR************************ 

****RESERVE0 LABEL***************** 

»*" reserved label 

i*aa.c3 ■ w r m Then 
begin result «■ true; 
go to return* 

ENO ELSE 

i « m f m then 

begin result * false; 

go to return; 

END ELSE 

I * "E* THEN 

BEGIN RESULT ♦ TRUE; 

go to endterpret; 

end; 

**** RE SERVED LABEL***************** 

;; 

****G0"T0 PART********************* 

H _ - ~ ~ - -—■-••-- - ■ 
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/" GO-TO PART DELIMITER AFTER PATTERN 
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50H0000 

50120000 

50130000 

5 0.1* 00 0.0 
50150000 
501*0000 
50170000 
5OI8OOOO 
50190000 

.5.0.200000 
50210000 
50220000 
50230000 
50240000 
50250000 
50260000 
50270000 
50280000 
50290000 
50300000 
50310000 
50320000 
50330000 
50340000 
50350000 
50360000 
50370000 
5O3JOOOO 
50390000 
50400000 
50410000 
50420000 
50430000 
50440000 
50450000 
50460000 
5 0470000 
50480600 
50490000 
50500000 
50510000 
50520000 
50530000 
50540000 
50550000 
50560000 
50570000 
50580000 
50590000 
50600000 
50610000 

50620000 
50630000 
50640000 
50650000 
5O66OOOO 
50670000 



% IF INFORM THEN INF0RM0<26); 

NEARPOINT * IF SUCCESS THEN SLOC ELSE FLOC; 

INSTRUCT * NEARPOlNT f W; 

NEARPOINT * NEARPQINT.CJ 

RELATIVEPOINTER * SP * 0; 

INGOTOPART * TRUE* 

GO TO PSCANJ 

ENOJ 
%****#* **GO"»T0 PART********************* 
*******#*END STR REF******************** 
% 50* W S M END OF STRING REFERENCE* BEFORE PATTERN 

ft P fi T w 

IF BOOLEAN(VAUUtPSTCOn«INUSE> THEN 
IF NOT SNBUN(PsnOJ) THEN FAIL; 

PTYPEtOI * ANCHQRMODEJ 

psnrto] * anchorsize; 
PP0INTC03 * 0; 
relativepointer * i* 
go to pscan; 

END) 
%********END STR REF******************** 

;;;; 

%********SYNTAx ERROR****************** 

% 55j *x h syntax error in original code 
begin messageki'instno); 
messagettic1,instn0); 
go to dead; 

. end; 

%******** SYNTAX ERROR******************* 

;;; 

55********NON*lNPUT STRING*************** 
% 59« '""*" NON-INPUT STRING NAME 

BEGIN PTYPEtSP] * At 

PSTESP3 * AA,C18I123J 

PNAMptSP] * TRUE; 

SP * sp + 1; 
relativepointer * 3; 
go to pscani 
end; 
x******#*non - input string*************** 

i 

%******#*PATTERN MATCH***************** 
% 61.1 W * M PATERN MATCH 

BEGIN 

% if sp < 1 then go to perror* 

relativepointer * u 

pminleftfsp] * ptypetsp] * 01 % to end scan, 

nopatterns ♦. sp - 1; 

backreflag *■ false; 

for i * nopatterns step -1 until 1 do 

BEGIN 

IF II * PTYPECI] • 1 THEN 
FOR J * 1-1 STEP -1 UNTIL DO 
BEGIN 
IF PSTCI] * PSTCJ3 

THEN IF PTYPECJ3 / 1 
THEN BEGIN 



€ 

i 

i 
i 

i 



m 
« 



* 



m 



• 



• < 






• 



• 



LLOC FIELDS 



SIZE OF THE 



50680000 PTYPECI3 «■ II * 5! 

50690000 P8ACKCI3 * j; 

50700000 psiZEtn * psizecju 

50710000 8ACKREFLAG * TRUE! 

50720000 GO TO MINLEF! 

50730000 end; 

50740000 END ELSE IF II < 4 THEN 

50750000 IF PSTU3 * PSTC03 

50760000 THEN SELFREFLAG *■ TRUE! 

50770000 IF II * 1 THEN % SET PLENGTH & 

50780000 BEGIN AB •• PSTCI3J 

50790000 PSlZEri3 ♦ CPL0C[I3 * VALUEAB3),S! 

50800000 END! 

50810000 MINLEFJ * THE MINLEFT WORD HOLDS THE MINIMUM 

50820000 % REMAINDER OF THE PATTERN* 

50830000 PMINLFFTCIl * PMINLEFTC I +1 3 + PSIZECI3J 

50840000 END! 

50850000 REFLOC * < AA*VALT ABLCREF I*PSTC03 ,STR,REFJ*PST C 03 .STW 3) .CH! 

50860000 SIZE *■ AA.Sj 

50870000 RPR * AA.R! 

50880000 SP * o; 

50890000 N0BACK0RBAL * TRUE? 

50900000 NEWPCINT1 

50910000 PPOINTtSP+13 * PP0INTESP3 + PSIZECSP]! 

50920000 NEXTPATTERNi 

50930000 SP * SP + It 

50940000 IF PmINLEFTCSPJ •♦ PPOlNTCSPl > SIZE THEN GO TO SlZEFARURE! 

50950000 CASE PTYPEESP3 OF 

50960000 BEGIN 

50970000 % 01 END OF SCAN* IF AFTER LAST PATTERN ELEMENT! 

50980000 GO TO IF SP > NOPATTERNS THEN SCANSUCCESS ELSE SCANERR! 

50990000 % 1* CONSTANT PATTERN ELEMENT 

51000000 BEGIN 

51010000 AA * PL0CCSP3; 

51020000 REFPT * REFLOC + PP0INTCSP3! 

51030000 GO TO IF (IF <I*AA,S) $ 63 THEN 

51040000 E0(I#FIRSTCHAR<AA),DATACRPR#REFPT.W3>REFPT,C) ELSE 

51050000 EQUAL (I'FlRSTCHAR(AA)*DATAtRPR» REFPT. W 3, REFPT,C)) 

51060000 THEN NEWPQINT 

51070000 ELSE DR0P8ACK! 

51080000 end; 

51090000 % 2» ARBITRARY STRING 

51100000 BEGIN PPOINTCSP+13 

siiiooob go to nextpattern; 

51120000 end; 

51130000 % 3» fixed*length string variable 

51140000 GO TO NEWPOINT! 

51150000 % 4« BALANCED STRING VARIABLE 

51160000 BEGIN NOBACKORBAL * FALSE! 

51170000 INCREASE «■ 0! 

51180000 REFPT * REFLOC + PP0INTCSP3! 

51190000 BALANCE! 

51200000 COUNT «■ 0! 

51210000 DO BEGIN 

51220000 IF PP0INTCSP3 ♦ INCREASE*INCREASE+1 > 

51230000 IF AA«-CHAR(DATAtRPR»REFPT.W3»REFPT.C) 

51240000 COUNT * COUNT + 1 ELSE 
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VARIABLE 

♦ PP0INTCSP3! 
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SIZE THEN 60 
m "<" THEN 



TO DROPBACK! 
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51250000 IF AA * »)" THEN 

51260000 COUNT * COUNT - i; 

51270000 REFPT * REFPT + U 

51280000 END UNTIL COUNT S o; 

51290000 if count < then go to drqpback; 

51300000 pp0intc3p+1j * ppqintcsp3 + psjzecsp jmhcrease* 

51310000 go to nextpattern* 

51320000 end; 

51330000 % 5t BACK REFERENCE! 

51340000 BEGIN N08ACK0R8AI * FALSE; 

51350000 INCREASE * PPO INTCPBACK t SP]+1 3 - I 1+PPOINTCPBACKC SP3 3; 

51360000 IF PP0INUSP3 + INCREASE > SIZE THEN GO TO SIZEFAILUPE* 

51370000 II * REFLOC + Hi 

51380000 RfFPT * REFLOC + PP0INTCSP3; 

51390000 IF NOT EOUALC INCREASE#DATACRPR# 1 1 . W3 » 1 1 .C* 

51400000 DATACRpR#REFpT.W3#REFPTtC> THEN GO TO DROPBACKJ 

51410000 PPOINTCSP+U * PPQINT[SP3 ♦ INCREASE; 

51420000 GO TO NEXTPATTERN; 

51430000 END 

51440000 END CASES; 

51450000 GO TO SCANERR* 

51460000 SIZEFAILUREJ 

51470000 IF N08ACK0RBAL THEN SO TO SCANFAILURE* 

51480000 DROPBACKJ 

51490000 DO IF CSP*SP-1) < THEN GO TO SCANFAILURE 

51500000 UNTIL NOT BOQLEANCPTYPE C SP 3 )J 

51510000 * NON-EXTENDABLE IF CONSTANT* FIXED-LENGTH OR BACK-REFERENCE 

51520000 % CAN ONLY BE EXTENDED FOR SIMPLE & BALANCED VARIABLES, 

51530000 IF PTYPFCSP3 * 2 THEN X ARBITRARY VARIABLE: 

51540000 BEGIN 

51550000 GO TO IF PMINLEFTCSP+1 3 ♦ PPOlNTf SP+13*PP0INTC SP+1 3+1 S SIZE 

51560000 THEN NEXTPATTERN 

51570000 ELSE SIZEFAILURE; 

51580000 END ELSE X BALANCED VARIABLE* 

51590000 BEGIN 

51600000 refpt * refloc + pp0intcsp3 ♦ incr£ase*psize£ spji 

51610000 go to balance; 

51620000 end; 

51630000 SCANERRt 

51640000 begin segment 

51650000 inf0rmih3«instn0*sp); 

51660000 writfstack(nopatterns + d; 

51670000 abort; 

51680000 end; 

51690000 SCANSUCCESSt 

51700000 % IF INFORM THEN WRITESTACK(NQPATTERNS+1 >i 

51710000 if ptypeespm3 * 2 then pp0intcsp3 * size; 
51720000 x assignment of string variables! 

51730000 % if inform then Informqco; 

51740000 FRONTEND ♦■ PPOINT'tlll 

51750000 REAREND * SIZE * PP0INTCN0PATT£R.N$*1 J J 

51760000 RSIZf * FRONTEND + REAREND; 

51770000 IF VARFLAG THEN 

51710000 BEGIN 

51790000 IF SELFREFLAG THEN 

51800000 BFGIN X MAKE COPY OF STR REF VALUE* 

51810000 TEMPREF * TEMPCELL; 
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51820000 
51830000 
51840000 
51850000 
51860000 
51870000 
51880000 
51890000 
51900000 
51910000 
51920000 
51930000 
51940000 
51950000 
51960000 
51970000 
51980000 
51990000 
52000000 
52010000 
52020000 
52030000 
52040000 
52050000 
52060000 
52070000 
52080000 
52090000 
52100000 
52110000 

52120000 
52130000 
52140000 

52150000 
52160000 
52170000 
52180000 
52190000 
52200000 
52210000 
52220000 
52230000 
52240000 
52250000 
52260000 
52270000 
52280000 
52290000 

52300000 
52310000 

52320000 
52330000 
52340000 
52350000 
52360000 
52370000 
52380000 



AA * STRINGCSIZEjTEMPREF); 
tF DEATH THEN DIE* 
AB * VAITABLCREFI'REFJ]; 
M0VE(SIZE»FIRSTCHAR(A8)»FIRSTCHAR(AA)); 
VALUCTEMPREF3 '••♦ AB * AAJ 
.■ END ELSE ■ 

BF6.IN TEMPREF ♦ pSTtOU 
AB * VAUUCTEMPREFl; 

end; 
for sp * i step 1 until nopatterns do 

if ptypetspl>l then if ptypecsp3<5 then if ac*pstesp3*0 then 

BEGIN 

* STRING VARIABLE ASSIGNMENT* 
IF (J«-PP0INTCSP + l]-PP0INTtSP3) * THEN 
VALUCAC3.S * ELSE 
BEGIN 
IF (AA*VALUUC3).S < J THEN 

% NEED NEW STRING— NEW VALUE LARGER THAN OLD* 

BEGIN AA ♦ STRINGCJ,AC); 

AB «• VALUCTEMPREFi; 

VALUtACJ.LOC «• AA; 

END ELSE 

% CAN USE OLD VALUE--NEW VALUE SHORT ENOUGH 

VALUCAC3.S * j; 
II *■ AB.CH ♦ PPOlNTCSPj; 
IF J S 63 THEN 

MV(J*DATAEAB,R,I1,W3*II,C»FIRSTCHARCAA)) ELSE 

M0VE(J*DATACAB,R#I1.W3»I1,C,FIRSTCHAR(AA)); 

eno; 
if b00lean(valutac3,0utuse) then if not snblout(ac) then fail; 

end; 
end assignment of str vars; 
sp *■ t; 
GO TO pscan; 
end; 

%********PATTERN MATCH***************** 

; 

******* **STRlNG NAME******************** 
* 63 1 """ STRING NAME* WITH INPUT CHECK 

BEGIN PTYPECSP3 * II 

PSTCSP3 * I *• AA»C18»121| 

IF B00LEAN(VALUCI3,INUSE> THEN IF NOT SN8LINCI) THEN FAlLl 

PNAMECSP1 * true; 

SP V SP 4 ll" 
RELATIVEPOINTER ♦ 3; 

GO To pscan; 

ENO 

X********STp,ING name******************** 
end pscan cases; 

PERROR» 

begin segment 
informi(5,instno>; 

writecprint»17»inste*3); 

clearcbufout»i7); 

IF INSTRUCT x 8 + NEARPOINT < 132 THEN 

Mv(l*QMARK»7»BUF0UTtINSTRuCT3#NEARP0INT>; 
WRITE(PRINT,17»BUF0UTC*3); 
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52390000 
52400000 
52410000 
52«20000 
52430000 
52440000 
52450000 
52460000 
52470000 
52480000 
52490000 
52500000 
52510000 
52520000 
52530000 
52540000 
52550000 
52560000 

52570000 
52580000 

52590000 
52600000 
52610000 
52620000 
52630000 

52640000 
52650000 
52660000 
52670000 
52680000 
52690000 
52700000 
52710000 
52720000 
52730000 
52740000 
52750000 
52760000 
52770000 
52780000 
52790000 
52800000 
52810000 
52820000 
52830000 
52&40Q00 
52850000 
52860000 
52870000 
52880000 
52890000 
52900000 
52910000 
52920000 
52930000 
52940000 
52950000 



result «■ false* 
abort; 

ENOJ 
FIXERR1 

IF PRINTMESSAGES THEN 

BEGIN SEGMENT 

WRITE(PR!NT,FBL>' 

AA «• VALUtPST[SP33; 

WRITE(BUF0UTC*3»FFlXVARSlZE>AA t S#INSTN0); 

move<min<aa.s»116)#firstchar(aa),bufoutc*3#16)j 

writecprint»17#buf0uu*3>; 

if inform then writestack< sp )i 

fail; 

end; 
scanfailurej 
x if inform then 
x begin informo<8); 

X WRlTESTACKCNOPATTERNS+1); 

x end; 

FAILED' 

* IF INFORM THEN INF0RM0C4); 

IF INGOTOPART THEN X GO-TO PART HAS FA ILEO--FATAL ERROR 
BEGIN 

mfssagek2#in$tnq); 
messagettic2*instn0); 

die; 

end; 
if death then die; 
success * false; 
go to goto; 
deadj % fatal error mas occurred»-terminate program, 
% error message should already have been printed, 
begin segment 
if systemerror then abort; 
if debugging then x suspend* 

begin suspendreas0nc3] * true; 

death * false; 

DEBUGtSETGO); 

end; 
messagettki3»instno); 

RESULT * FALSE; 

go to enhterpret; 

end; 

LIMITHITI % SYSTEM LIMIT OF SOME SORT PASSED— PRINT ALU LIMITS. 
BEGIN SEGMENT 

dmpstr ..♦. true; 

MESSaGEI(4#INSTN0); 

messagetti(4>instn0); 
if cpulimitexists then 

begin messagei(5»cpulim!t/60); 

messagettic5#cpulim it/60); 

End; 
if iolimiTexists Then 

BEGIN MESSAGEIC6#IQLlMlT/60); 
MESSAGETTI(6»I0LIMlT/60); 

eno; 

IF RULELIMITEXISTS THEN 
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52960000 
52970000 
52930000 
52990000 
53000000 
53010000 

5 3020D0Q 
53030000 
53040000 
53050000 
53060000 

53070000 
53010000 
53090000 
53100000 
53110000 
53120000 
53130000 
53140000 
53150000 
53160000 
53170000 
53180000 
53190000 
53200000 
53210000 
53220000 
53230000 
53240000 
53250000 
53260000 

53270000 
53280000 
53290000 
53300000 
53310000 
53320000 
53330000 
53340000 
53350000 
53360000 
53370000 
53380000 
53390000 
53400000 
53410000 
53420000 
53430000 
53440000 
53450000 
53460000 
53470000 
53480000 
53490000 
53500000 
53510000 
53520000 



BEG 

MES 

END 
RESULT 

die; 

END LI 

UNDEFINED 
% AA M 
BEGIN 
DMPSTR 
WRITE* 

AB * N 

WRlTEC 

MOVECI 

WRITEC 

IF DAT 

BEG 

MOV 

MVC 

IF 

IF 



IN MESSAGEI(7»RULELIMIT); 
SAGETTIC7#RULEUIMIT); 

; 

* FALSE) 



TRANSFER TO UNDEFINED LABEL. 
TABLE ADDRESS OF LABEL. 



MITHITJ 

t % ATTEMPTED 
UST CONTAIN SYMB 
ALPHA AC* AB) 

* TRUE) 
PRINT, FBL>; 
AMEEAAli 

bufoutc*]*fundeflabedj 

*min(90*ab,s)#firstchar(ab)#bufout£*3*40)i 

print, 17, bufoutu])) 

acomf then % write message on teletype: 

in mvf2»crlf,5,dcwritec*3>0)) 

eu*i + 38,bufouti:*3,2,dcwritec*3»2>) 

3,CRLF,5,DCWRITEn.W3,I f C + 2>) 

OUTPUT THEN) 

DEBUGGING THEN % SUSPEND 



END 
RESULT 

DIE) 
END) 

RETURN' 
* IF I 
RETURN 
IF LEV 

BEG 
MES 
DIE 

end 

INTER 



BEGIN SUSPENDREASQNC33 * TRUE) 

AC *• AA) 

OEBUGCSETGQ)) 

% SEE IF LABEL DEFINED NOWJ 

GO TO IF VALUCAA*AC3,S * 10 

END) 

• 

* FALSE) 



THEN SETGO ELSE UNDEFINED) 



END 



NFORM THEN 

TEMPS) 

EL*LEVEL-1 i THEN 

IN MESSAGE0(22)) 

SAGETTIC14,INSTN0)) 

) 

) 

PRETER) 



INFORMHICLEVEL)) % END OF THIS LEVEL* 
% RETURN* NO FUNCTION CALLED 



******************** 

**************** 



cinu i n i tnrnt i cr?# 

X********INTERPRETER************************************ 

X******** INTRINSIC************************************** 

% GIVEN A FUNCTION NAME (S CHARS--STARTING P CHARS PAST LC03># 

% INTRINSIC RETURNS THE INDEX FOR THE BRANCH TO INTRINSIC FCTS IN THE 

% INTERPRETER. IF THE FUNCTION IS NOT AN INTRINSIC, IS RETURNED. 

INTEGER PROCEDURE INTRINSIC? 1>P> S )) 

VALUE P, S) 

alpha array lc03) 

Integer p, s) 

begin label fin, non) 

ALPHA F) 

INTEGER I) 

BOOLEAN FX) 

% 

IF S > 7 OR S < 3 THEN GO TO NON) 

F «• 0) 

MV(S,LEP.W3,P.C*F>8-5>) 
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53530000 
53540000 

53550000 
53560000 
53570000 
53580000 
53590000 
53600000 
53610000 
53620000 
53630000 
53640000 
53650000 
53660000 
53670000 
53680000 
53690000 
53700000 
53710000 
53720000 
53730000 
53740000 
53750000 
53760000 
53770000 
53780000 
53790000 
53800000 
53810000 
53820000 
53830000 
53840000 

53850000 
53860000 
53870000 
53880000 
53890000 
53900000 
53910000 
53920000 
53930000 
53940000 
53950000 
53960000 
53970000 
53980000 
53990000 
54000000 
54010000 

54020000 
54030000 
54040000 
54050000 
54060000 
54070000 
54080000 
54090000 



FX * NOT BOOLEANCF); 

FOR I * INTRlNSFCTCS*OJ STEP 



1 UNTIL i DO 



IF REAL(N0TCB0QLCAN(INTRINSFCTCS#I3) EQV FX) 
BEGIN INTRINSIC «• INTRINSNDXES* 1 1 1 



) ■ TEENYNEG THEN 



I «■ iNTRINSNOXtSMll 

GO TO fin; 
end; 
intrinsic * 0; 



% for tracing 



NONl 
FINJ 

END intrinsic; 

X********iNtRINSIC***************************** 
X********LQADER************************** ****** 
X LOADER READS THE PROGRAM MATERIAL IN THE FILE 
X CAUSES THE PROGRAM TO BE COMPILED. INSTRUCT! 
X SINGLE ARRAY ROW AND PASSED TO COMPILE. CONT 
X SIMILARLY PASSED TO PROCESSCOnTROlCARD t WHEN 
I THE WORK ON THE FILE IS TERMINATED. IF THIS 
X COMPILATION IS COMPLETED BY INITIALIZING VARI 
X AND THE LOADER RETURNS TO THE CONTROL CODE AT 
X DECK* CAUSING THE INTERPRETER TO BE CALLED. 
X LEVEL OF RECURSIVE CALLS OF LOADER MAY BE USI 
X PROGRAMFROMREMOTE IS TRUE)* IN WHICH CASE THE 
X USED. 

PROCEDURE LOADERCPROGRAM); FILE PROGRAM; 
X 
X 
BEGIN 

integer 
i» 
j; 

ALPHA ARRAY 

INSTC0U022); 

LABEL 
A* 

CONT, 
CONTROL* 
EN* 
EOF* 
FIN* 

60TINST* 
INITIALIZE* 
LABELED* 
LOAD, 
RD» 
TTLOST, 

unlabeled; 
switch instbr * 

RD* 
CONT, 

CONTROL* 

EN* 

UNLABELED* 

LABELED; 
X 
RDI IF DEATH THEN 

INSTSIZE «■ 0; 

IF programfromremote 



************************* 
************************* 

PROGRAM, AND 
0NS ARE PUT INTO A 
RQL CARDS ARE 

AN END CARD IS FOUND* 
WAS THE GLOBAL FILE* 
OUS GLOBAL ITEMS* 

THE END OF THE 
NOTE THAT THE HIGHEST 
NG THE TELETYPE (IF 

PROGRAM FILE IS NOT 
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GO to fin; 

THEN 



* » 



54100000 
54U0000 
54120000 
54130000 
54140000 
54150000 
54160000 
54170000 
54180000 
54190000 
54200000 
54210000 
54220000 
54230000 
54240000 
54250000 
54260000 
54270000 
54280000 
54290000 
54300000 
54310000 
54320000 
54330000 
54340000 
54350000 
54360000 
54370000 
54 380000 
54390000 
54400000 
54410000 
54420000 
54430000 

54440000 
54450000 
54460000 
54470000 
54480000 
54490000 
54500000 
54510000 
54520000 
54530000 
54540000 
54550000 
54560006 

54570000 
54580000 
54590000 
54600000 
54610000 
54626666 
54630000 
54640000 
54650000 
54660000 



BEGIN WR!TEC0CWRITEt*3#FCRLF)J IF OUTPUT THEN; 
IF INPUT THEN 

BEGIN ClEAR«BUF0UT»10)J 

WHILE CHAR(OCREADtCll*DCSlZE-l).W]#Ii,C) ■ w #" 00 
BEGIN 

write(0cwritee*3#fagain); 
if not output then go to eof; 
if not input then go to eof; 
end; 
mqvecdcsize»dgreadc*3»o>inst[*j#0); 

move(80-ocsize#bufout[*3,0'instcdcsize.w3,ocsize,c); 
inststze «• ocsize; 
i «• max(80#instsizej; 
mv(3> stopper* 5* inst c i. w3m.c); 
lstcinst); 
end else go to eof 
end 0atac0mm input else 

BEGIN 

ie not bufferfull then 

begin read(pr0gram,10»bufferc*3) ceqf3; 

bufferfull * true; 

end; 
if convertf then CONVERT(BUFFER); 
LSTC8UFFER); 
MOVE(FlELDSlZE>BUFFERt*3*0*INSTt*3*0); 

bufferfull * false; 

instsize * fielosize; 

re a0( program* 10, 8ufferc*3) eeof3; 

bufferfull * true; 



i 






n . w 



DO 



WHILE CHARCBUFFER[*3»0) 

BEGIN IF CONVERTF THEN CONVERT(BUFFER) ; 

LSTCBUFFER)' 

MV<1>BLANK#7,BUFFER[*3#05; 

MOVE(FIELOSIZE#BUFFERt* 3, 0,INSTt INSTSIZE, W3# INSTSIZE. C>; 

BUFFERFULL * FALSE; 

INSTSIZE * INSTSIZE + FIELOSIZE; 

READCPR0GRAM,l0»BUFFERt*3) CE0F3; 

bufferfull ♦ true; 
end; 
mvc3»stopper»5#instcinstsize,w3#instsize.o; 
end; 
gotinstj 

if slastlabel • then if cardtypec instc * 3 ) 2> 5 then 

BEGIN 

IF NOT SYMBTA8LSETUP THEN INITI ALlZESYMBTABL; 
SLASTLABEL * ENTERST CSCANCHARC" % M M # INST C*3 * ) * 
INSTC*3#0* M INST W ); 

IF INSTNUM • THEN ENTRY «• SLASTLA8EL; 
PTR * 2; 

go to load; 

end; 
60 to instbrccardtypeunstc*3)3; 
syntaxerr(22*0); 

commrnt unrecognized instruction type; 
60 TO rd; 
CONTROL! 

PROCESSCONTROLCARD(INST); 
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5.4 6 7.0 OOP 
54680000 
54690000 
54700000 
54710000 
54720000 
54730000 
54740000 
54750000 
54760000 
54770000 
54780000 
54790000 
54800000 
54810000 
54820000 
54830000 
54840000 
5*850000 
54860000 
54870000 
54810000 
54890000 
54900000 
54910000 
54920000 
54930000 
54940000 
54950000 
54960000 
54970000 
54980000 
54990000 
55000000 
55010000 
55020000 
55030000 
55040000 
55050000 
55060000 

55070000 
55080000 

55090000 
55100000 
55U0000 
55120000 
55130000 
55140000 
55150000 
55160000 
55170000 
55180000 
55190000 
55200000 
55210000 
55220000 
55230000 



IF 



GT 
AB 



IN LOC OF 
SEGMENT 



PTRI 



NEXT SEGMENT, 



go to rd; 

CONTI 

messageo(15); 

MESSa6ETT&U5)J 

COMMENT ILLEGAL CONTINUATION-- IGNORED* 
GO TO RDJ 
LABELED! 

I «• ENTERSTfSCANCHARC % H ", INSTC * 3,0 >, INSTC * 3 , 0, M INST" )t 

IF NfXTSEGMENT ■» THEN NEXTSEGM£NT ♦ i; 

IF &TF AND GTS THEN GO TO AJ 

AA * NEXTSEGMENT & »/ « "C24 J 36 » 12 3 > 

j ♦ if gt then 3 else 4; 

ST0&ECHAr5CJ,AA,8-J); 

if not gts then 

begin sloc * ptr • 31 

mvc2»sloc,6,codecmarker,w3* marker. c+3)* 

end; 

not gtf then 

begin floc ♦ ptr - 3j 

Mv(2»FL0C#6#C00EfMARKER.W3*MARKER,C+5)l 

end; 

* gts .«■ gtf * true; 
aj ab * string(ptr#slastlabel)i 

mv<2, nextsegment, 6, c0dec03»0)* % fill 
nextsegment «• o; * reset for next 

MOVE (PTR, CODEC *3#0,FIRSTCHAR CAB) }l 

VALUESLASTLABEL3,L0C * AB; 

IF PTR > MAXINSTSIZE THEN MAXlNSTSIZE 

% CHECK WHETHER LABEL HAS OCCURRED BEFORE' 

IF (AA*VALUf I3)tCH J 3 THEN- 
BEGIN MESSAGE0(16>; 
MESSAGETT I (22, INSTNUM); 
MV(2,FIRSTCHAR(AA),NEXTSEGMENT#6); 
MV(2» NEXTSEGMENT, 6»CODEC03*O); 

end else cqdeco] «• nextsegment * o; 

PTR ♦ 2; 

slastlabfl * IJ 
go to load; 
unlabeled! 

if gts and gtf then 
begin message0(17>; 

MeSSAGETTI(16*INSTNUM); 

messages * messages ♦ i; 

end; 

LOAD* 

MARKER * PTR; 

AA * INSTNUM & QMARKC30142!6JJ 

storechars<3,aa,5); 
sloc «• floc «• o; 
st0rechars(5#0,3>; 
ccmpilecinst); 
instnum * instnum ♦ ii 
GO TO rd; 
EOF! 

X EITHER EOF ON PROGRAM FILE OR NO INPUT FROM TELETYPE! 
IF PROGRAMFROMREMOTE THEN % NO INPUT FROM TELETYPE* 
BEGIN 
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55240000 
55250000 

55260000 
55270000 
55280000 
55290000 
55300000 
55310000 
55320000 
55330000 
55340000 
55350000 
55360000 
55370000 
55380000 

55390000 
55400000 
55410000 
55420000 
55430000 
55440000 
55450000 
55460000 
55470000 
55480000 
55490000 
55500000 
55510000 
55520000 
55530000 
55540000 
55550000 
55560000 
55570000 
55580000 
55590000 
55600000 
55610000 
55620000 
55630000 
55640000 
55650000 
55660000 
55670000 
55680000 
55690000 
55700000 
55710000 
55720000 
5 57 3 6b 00 
55740000 
55750000 
55760000 
55770000 
55780000 
55790000 
55800000 



WRITE{BCWRITEC*3*FN0INPUT,QMARK); 
IF NOT OUTPUT THEN GO TO TTLOST; 

IF NOT INPUT THEN GO TO TTLOST) 

WHILE J*CHAR(0€REA0t*3*SKlPCHAR( M ",0CREAD t * 3 #0) ) * "Y" 

and j * w n m do 
begin write<dcwrltec*3ffyesqrn0)j 
if not output then go to ttlost; 
if not input then go to ttlostj 
end; 
to if j » "y" then rd else ttlost; 



f 

4 



go to gotinst; 

compiled* 



INSTRUCTION* 



GO 

end; 
ip loaderlevel > then % eof for sub-program file 

BEGIN 

IF INSTSIZE > THEN 

% LAST CARD HAS BEEN 

GO to fin; 
end; 

% EOF AT LEVEL Ot 

IF INSTSIZE > THEN GO TO GOTINST; 
% NO CARD IN lNSTt*3--END CARO MISSING. 
WRITE f PRINT* MESS AGEt 253); 
EXECUTE «■ FALSE; 
GO TO fin; 
TTLOSTJ 

MESSAGE0C9); 

execute * false; 

go to fin; 

ENS X END CARD ENCOUNTERED? 

IF SLASTLABEL * THEN X FINISH UP LAST 

BEGIN DEFINE DUMMY»#; 

IF NOT C6TF AND GTS) THEN 

BEGIN I * IF GT THEN 3 ELSE 4; 

If nextsegment * o then 

BEGIN AA ♦ V*E"J 

I * IF GT THEN 2 ELSE 3) 

j * 2; 

END ELSE 
I PATCH—TIE TO NEXT SEGMENT 

BEGIN I * IF GT THEN 3 ELSE 4; 

AA * NEXTSEGMENT & «/ ?« t 24 J 36« 123 ; 

J * s; 

end; 
st0rechars(i*aa#8-i); 
if not gts then 

BEGIN SLOC «■ PTR * j; 

m0ve(2#sl0c#6#c0detmarker.w3»marker.c+3); 

end; 
if not gtf then 

begin floc * ptr - jj 

m0ve(2#fl0c>6> code t marker. w3#marker.c*5); 

end; 

end; 
temp * stringcptrjslastlabed; 

M0VE(PTR»C0DEt*3*0,FlRSTCHAR(AA)); 

VALU[SLASTLA8EL3,LOC *■ AA; 

SLASTLABEL * 0) 

IF PTR > MAXINSTSIZE THEN MAXINSTSIZE * PTR; 
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55810000 
55820000 
55830000 
55840000 
55850000 
55860000 
55870000 
55880000 
55890000 
55900000 
55910000 
55920000 
55930000 
55960000 
55950000 
55960000 
55970000 
55980000 
55990000 
56000000 
56010000 
56020000 
56030000 
56040000 
56050000 
56060000 

56070000 
56080000 

56090000 
56100000 
56110000 
56120000 
56130000 
56140000 
56150000 

56160000 
56170000 

56180000 
56190000 
56200000 
56210000 
56220000 
56230000 
56240000 
56250000 
56260000 
56270000 
56280000 
56290000 
56300000 
56310000 
56320000 
56330000 
56340000 
56350000 
56360000 
56370000 



INFORM THEN 



END; 
* FIND ENTRY POINT* IF ANYt 

P * 6 * SKIPCHARC" M *INSTC*3>4)J 
IF P < INSTSIZE THEN 

BEGIN TEMP «• PJ 

P * P + SCANCHARf" W #QMARKMNSTCP.W3#P.C); 

IF P > INSTSIZE THEN P * INSTSIZE; 

ENTRY * ENTERST(P-TEMP,INSTC*3#TEMP#"INST H )J 

end; 

INITIALIZES IF LOAOERLEVEL * THEN % FINISH UP LOADING! 
BEGIN ALPHA ARRAY SPECI ALINST CO! 1 3 J 
IF NOT(IOEOFC23 OR PROGRAMFROMREMOTE} THEN 

BEGIN MOVE(80»BuFFERt*3*0»NEXTRECOROC2»*3*0)J 
L00KFC23 * TRUE; 
END* 
% CHECK FOR NON-EXISTENT LABEUSl 
IF PRINTMESSAGES THEN 

FflR I * STEP I UNTIL STRMAX DO 

FOR J «■ STEP 1 UNTIL STWMAX DO 

IF (AA*NAMTA8LCI*J3).C1!23 * 3 THEN 
IF VALTABLU**J3.S < 9 THEN 

BEGIN WR!TECBUPOUT£*3,MESSAGEC503); 
MQVE(MIN(AA.S,115)>FIRSTCHAR<AA),BUFQUTE*3#19); 

writecprint*17*buf0uti*3 )i 

end; 

inf0rma(0»entry>* 

VALUCENTRY3.S S 10 THEN 

BEGIN MESSA6E0(18); MESSAGETTOC 18 ) J 

EXECUTE * FALSE; 

GO TO FIN) 

eno checking entry point; 
% 

% INITIALIZATION OF SPECIAL SNOBOL IDENTIFIERS! 

% 

% RETURN INSTRUCTION! 

I <■ ENTERST{6#W0RDS[*3#54* M INST H ); 
IF VALUCI3.S * THEN 

BEGIN FILL SPECI ALINSTC *3 WITH OCT0000140000000000, "0 .ROOOOO"; 

SPECIALINST[03,tl8!123 * INSTNUM; 

AA * STRING(11#I>; 

MV(11»SPFCI ALINSTC *3#0*FIRSTCHAR(AA)); 

VALutn.LOC *• aa; 
end; 
% 

% FRETURN INSTRUCTION! 

% 

I * ENTERST(7#WQRDSr*3#53# ,, INST w >; 

if VALUti3,s m o Then 

8FGIN FILL SPEC I ALINST t *3 WITH OCT0000140000000000#"Q.FOOOOO H ; 
SPECIALINSTC03,C18!123 *■ INSTNUM; 
AA * STRlNG(U#n; 

mv( 11* spfci alinstc *3»0*firstchar(aa)); 
valuci3.LOG * aa; 

end; 
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IF 
IF 
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% 
% 



INITIALIZE QUOTE TO 



•»ww 






56380000 
56390000 

56400000 
56410000 
56420000 
56430000 
56440000 
56450000 
56460000 
56470000 
56480000 
56^90000 
56500000 
56510000 
56530000 
56530000 
56540000 
56550000 
56560000 
56570000 
56580000 
56590000 
56600000 
56610000 
56620000 
56630000 
56640000 
56650000 
56660000 
56670000 
56680000 
56690000 
56700000 
56710000 
56720000 
56730000 
56760000 
56730000 
56760000 
56770000 
56780000 
56790000 
56800000 
56810000 
56820000 
56830000 
56840000 
56850000 
56860000 
56870000 
56880000 

56890000 
56900000 

56910000 
56920000 
56930000 
56940000 



I * ENTER$T(5»W0RDSC*]#135>"SYM8 M ); 
VALUElKLdC * AA * stringu#i); 

M0VE(1*QU0TE*7»FIRSTCHAR<AA)W 

X 

X INITIALIZE OMARK TO ILLEGAL CHAR 

X 

I ♦■ FNTERST(5»W0RDSC*3#140, ,, SYMB M )J 

VALUfll.LOC * AA * STRlNGM#I>l 

M0VEC1#QMARK#7,FIRSTCHAR(AA))J 

X 

X INITIALIZE ARROW TO "♦" 

X 

I * ENTERSTf5>W0R05E*3#145>"SYMB M ); 

vALurn.LOc ♦ aa ♦ string? i*n; 

M0VE(1#ARRQW#7#FIR$TCMAR<AA)>J 

X 

X THE INPUT STRING READ GIVES THE REST OF THE FILE PROGRAM, 

X 

I * ENTERST(4*WORDSC*3>150#"SYMB M )J 

vALutn.iousE * 2; 

I0CI1 * & 2 CFILNO & 1 CIOTYPE & 2 CIOUSE; 
I0USA6EC23 * I 4 2 CIOUSE & 1 CIOTYPE* 

X 

X INPUT STRING CARO IS FROM THE CARD-IMAGE FILE NAMED CARD. 

X 

I * ENTERSTf4#W0RDSt*3f 174» M SYM8 M ); 

VALUtH.lOUSE * 3* 

IOCIJ * & 1 CFILNO & 1 CIOTYPE & 3 CIOUSE; 

lOUSAGECU * I & 3 CIOUSE & 1 CIOTYPE* 

X 

X PRINT IS OUTPUT TO THE LINE PRINTER FILE PRINT 

X 

I * ENTERST(5*W0RDSE*]*154# M SYMB*>; 

PRINTLOC * I) * SAVE VALUE FOR TRACE FUNCTION 

I0SPACEt3l «• i; 

VALUtH.lOUSE * l> 

I0CI3 * & 3 CFILNO & 1 CIOTYPE & 1 ciouse; 

IOUSAGEC33 * I & 1 CIOUSE & 1 CIOTYPE* 

X 

X PUNCH IS OUTPUT TO THE CARO PUNCH 

X 

I «■ ENTERST(5>W0RDSC*3#159,"SYMB M ); 

VALUtn.lOUSE * l> 

IOCU «■ & 4 CFILNO & 1 CIOTYPE & 1 ciouse; 

I0USAGEU3 * I 4 1 CIOUSE & 1 CIOTYPE* 

X 

X LOOK IS NON-READING INPUT FROM THE REST OF PROGRAM, 

X 

I <• ENTERST(4#W0RDSt*]#164# H SYMB M ); 

vALunmousE "'«• a 

IOCI] * & 2 CFILNO 8 2 CIOTYPE & 2 CIOUSE; 

X 

X SYSPOT — SEE CDC 3600 SNOBOL 

X 

I * ENTERST(6#W0RDSt*3#168* ,, SYM8'*); 

VALUCIJ.IOUSE * U 

I0CI1 ♦ & 3 CFILNO & 5 CIOTYPE & 1 CIOUSE; 
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56950000 X 

56960000 % NEWDISK IS OUTPUT TO THE NEW DISK FILE NEWDISK 

56970000 I * FNTERST'7*W0RDSC*3*178* M SYMB")) 

56980000 VAUUU3.I0USE * 3* 

56990000 IOtn * & 5 CFILNO & 1 CIOTYPE & 3 CIOUSE; 

57000000 I0USAGEC53 * I 4 3 CIOUSE & 1 CIOTYPE) 

570*0000 % 

57020000 % INITIALIZE TELETYPE I/O STRlNGl 

57030000 % I/O ON TELETYPES IS THROUGH THE STRING TELETYPE* WHICH 

57040000 % FAILS ON INPUT IF THE WAITING TIME IS EXCEEDED, AND FAILS 

57050000 * ON OUTPUT IF THE WAITING TIME IS EXCEEDED OR If THE 

57060000 % BREAK KEY IS USED. 

57070000 I * ENTERSTe8#W0R0SC*3#96,»SYMB"); 

57080000 VALUfllaOUSE «• 3) 

57090000 IOtn ■* & CFILNO 8. 3 CIOTYPE & 3 CIOUSE; 

57J00000 % 

57110000 FILL I0SlZE[*3 WITH 80,80, 132*80*80; 

57120000 fill rec0rde*3 with -1>-1*-1,-1*-1*»1 **1**1#-1 ; 
57130000 end; 

57140000 FINI 

57150000 IF 6EATH THEN EXECUTE ♦ FALSE; 

57160000 END LOADER; 

57170000 X********LOADER************** ******************************************* 

57180000 %********LOADLlBRARY**************************************************** 

57190000 % THIS PROCEDURE LOADS A LIBRARY ("OBJECT") FILE CREATED BY A -LIBRARY 

57200000 % CARD DURING AN EARLIER RUN. 

57210000 PROCEDURE L0ADLIBRARY( MF ID, FID 3 J 

57220000 VALUE MFID, FID) 

57230000 ALPHA MFID. FIDI 

57240000 BEGIN INTEGER I, j; 

57250000 REAL LI* L2* L3; 

57260000 BOOLEAN Bl» B2, 83; 

57270000 ALPHA ARRAY XtO«73) 

57280000 MONITOR INDEX; 

57290000 LABEL FAIL* FIN) 

57300000 FILE IN LIB DISK SERIAL C15,6,60>) 

57310000 % 

57320000 INDEX * FAR; 

57330000 FILL LIB WITH MFID* FID; 

57340000 SEARCH(LIB»XC*3); 

57350000 IF XC03 i THEN 

57360000 BEGIN MES5AGE0C 1 1 ); 

57370000 MESSAGETT0C11); 

57380000 60 TO TIN* 

57390000 END; 

57400000 REA0aiB*4,8UF0UTC*J) CFAIL»FAIL3) 

57410000 WRITECXt*3,FLlB0#ENTlER(VERSI0N)); 

57420000 x test validity of file^-should match FLlBOl 

5743000Q IF NOT EQC 32*BUF0UT I *3*0* XC *3 ,0 ) THEN X NOT A VALID LlBE FILE 

57440000 BEGIN IF EQf 20,BUP0UTC *3 ,0,XC*3*0 ) THEN % CREATED BY EARLIER VERSION 

57450000 BEGIN WRITECPRINT*FLI80LDL P >) 
57460000 WRITECDCWRITEC*3*FLIB0LDTT>; 

57470000 IF DATACOMF THEN IF OUTPUT THEN; 

57480000 END; 

57490000 GO TO FIN) 

57500000 END) 

57510000 READ(LIB*FLIB1#SCATTERN0*MAXINSTSIZE*B1,L1*B2,L2*B3,L3) CFAILJFAIL3) 
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57520000 
57530000 
57540000 
57550000 
57560000 
57570000 
57580000 
57590000 
57600000 
57610000 
57620000 
57630000 
57640000 
57650000 
57660000 
57670000 
57680000 
57690000 
57700000 
57710000 
57720000 
57730000 
57740000 
57750000 
57760000 
57770000 
57780000 
57790000 
57800000 
57810000 
57820000 
57830000 
57840000 
57850000 
57860000 
57870000 
57880000 
57890000 
57900000 
57910000 
57920000 
57930000 
57940000 
57950000 
57960000 
57970000 
57980000 
57990000 
58000000 
58010000 
58020000 
58030000 
58040000 
58050000 
58060000 
58070000 
58080000 




i 



. .. _. . _ . . . . ._ _. . . _. - . NSTNUM) 

CFAILIFAIUJ 

IF ENTRY > 4095 THEN GO TO FAIL* 

REA0CL!B*FLTB3,F0R 1*0 STEP t UNTIL 15 DO NEXTCELLC 1 3 > t FAIL "FAIL 3 i 
FOR I * STEP 1 UNTIL 15 00 
IF USEDSTCI3 THEN 

FOR J * STEP 2 UNTIL 254 DO 

READ 
READ 

FOR J. - V <Jlf l W"..U V4. WW *r w, ., ,.,.., 

FOR I * STEP 1 WHILE USEDR0WCI3 DO 
FOR j : V.-0 STEP 6 UNTIL DPNTRCI3.W DO 
BEGIN READ<LI8*6#XE*3)CFAIL»FAIL3; 
IF J < 1020 

then movewds(6»xc*3»data£l,j3) 

else movehos(3»xc*]»datati#j3)| 
end; 
symbtablsetup * true; 
checksymbtabl; 
go to fin; 
x 

fail* message0c5); 
messagett§(5>; 
oeath «■ true; 

FIN? 

end loadlibrary; 

X********L0ADLIBRARY**************** 

%********lst************************ 
x lst lists the card-image in ac*3# 
procedure lst(a); 

ALPHA ARRAY ACOl* 
BEGIN 
INTEGER n 
X 

if car0typecac*3) * 4 

then writecbuf0ut[*3*fi7»instnum) 

else writecbufoutc*3#fbl); 
for i * listspaces step -1 until 1 00 write(print#fbl > ; 

MOVE(80,A[*3*0,BUF0UTi;*]»8); 
IF LSTF THEN WRITE(PRlNT# 12#BUF0UT I *3 ) ; 
IF PUNCHF THEN WRITE(PUNCH* 10» AC *3 ) ; 
IF OCLIST THEN IF OATACOMF THEN 

BEGIN FOR I * 8 STEP "1 WHILE I > AND 
EQUAL(8#BLANKS#0»BUFOUTCI3*0) DO; 

WRITPCDCWRITEC*3#FVCRLF#8XI+1>; 

MOVEC8xI,BUFOUT[*3,0#OCWRlTEi:*3>0>; 

if output then; 
end; 

ENO I S.T J 

X********LST******* *********************************** ****************** 

X********MESSA6F procedures********************************************* 
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************************************ 
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58090000 
58100000 
58110000 
58120000 
58130000 
58140000 
58150000 
58160000 
58170000 
58180000 
58190000 
58200000 
58210000 
58220000 
58230000 
58240000 
58250000 
58260000 
582f0000 
58280000 
58290000 
58300000 
58310000 
58320000 
58330000 
58340000 
58350000 
58360000 
58370000 
58380000 
58390000 
58400000 
58410000 
58420000 
58430000 
58440000 
58450000 
58460000 
58470000 
58480000 
58490000 
58500000 
585100.00 
58520000 
58530000 
58540000 
58550000 
58560000 

58570000 
58580000 
58590000 
58600000 
58610000 
58620000 
58630000 
58640000 
58650000 



PROCEDURE MESSAGEOCI); 
VALUE H INTEGER IJ 
BEGIN SWITCH FORMAT MSGO ♦ 
("♦•PROGRAM SEGMENT TOO 



LONG—INSERT DUMMY LABEL AFTER LAST «* 



-LABEL AND BEFORE THIS INSTRUCTION," ) * 



//"*♦ DEFINE 
//"♦♦DEFINE 
//"♦♦DEFINE 
//"♦♦DEFINE 

//"♦♦unaI.le 
/"THE names 
/"THE LABELS 



FAILURE—ERROR IN LOCAL VARIABLE LIST")* 
FAILURE— ERROR IN FIRST ARGUMENT")* 
FAILURE — NO t IN FIRST ARGUMENT")* 
FAILURE— NO FIRST ARGUMENT")* 
TO REAO LIBRARY FILE")* 
IN USE ARE«"/)* 
AREI"/)* 



/"♦♦DUMMY FMT— MSGOC83")* 

//" ♦♦TELETYPE LOST--QUITT ING ." ) * 

//"♦♦INVALID PARAMETER,")* 

"♦♦FILE NOT AVAILABLE")* 

/"♦♦DUMMY FORMAT MSGOt 123"// ) * 

"♦♦FUNCTION ALREADY DEFINED— FORMER VALUE LOST")* 

//"♦♦SYMBOL TABLE FULL")* 

"♦♦ILLEGAL CONTINUATION CARD*)* 

"♦♦LABEL ALREADY DEFINED--FORMER VALUE LOST")* 

"♦♦THIS STATEMENT CAN NOT BE REACHED")* 

///♦♦♦♦ENTRY POINT UNDEFINED."///)* 

"♦♦MISSING QUOTE")* 

"**UNREC0GNIZED CONTROL CARD*)* 

"♦♦MISSING PARAMETER")* 

"♦♦ATTEMPTED RETURN WITH NO FUNCTION CALLED"). 

/"♦♦END FORMAT— MSGO"); 
WR1TECPRINT*MSG0U3)*" 
END MESSAGEOJ 
%*******♦***♦♦**♦♦♦♦♦♦♦♦♦♦♦***♦*♦♦♦*♦*** 

PROCEDURE MESSAGEAICI*P1*P2); 
VALUE I* PI* P2) 
INTEGER I* P2; 
ALPHA PU 

begin Switch format msgai * 

(//"♦♦non-numeric argument to ."*a2*«0 

(//"♦♦END FORMAT— MSGAI", A6* HQ)jl 
WRITE(PRINT*MSGAICI3*P1*P2)I 
END MESSAGEAIJ 
%♦♦*♦♦♦*♦♦**♦♦**♦♦♦♦♦♦♦♦♦♦♦*♦♦♦*♦♦♦♦♦♦** 

PROCEDURE MESSAGEI(I#P)i 

VALUE I, PJ 

INTEGER I* P; 

BEGIN SWITCH FORMAT MSGI * 

(//"♦♦INTEGER OVERFLOW In STATEMENT "*I6)» 

(//"♦♦ATTEMPTED EXECUTION OF INSTRUCTION WITH SYNTAX ERROR—"* 
"STATEMENT "*!«)* 

(//"♦♦FAILURE OF GO-TO PART IN STATEMENT "*I6)* 

(//"♦♦ATTEMPTED REPLACEMENT WITH STRING REFERENCE USED IN STRING 
" VARIABLE— STATEMENT "* I6/X10*"RePLACEMENT NOT ATTEMPTED,"// 
(//"♦♦PROGRAM LIMIT REACHED IN STATEMENT "*I6)* 
("♦♦CPU TIME LIMIT « »*I12,« SECONDS,"), 
("♦♦I/O TIME LIMIT * "»I12*" SECONDS.")* 
("♦♦RULE LIMIT m ",112)* 

(//"♦♦ILLEGAL SECOND PARAMETER TO CLOSE IN STATEMENT "*I6)* 
(//"♦♦DEFINE FAILURE IN STATEMENT "»I6), 



IN STATEMENT «*I4)* 



XOO 
%01 
%02 
%03 
X04 
%05 
%06 
X07 

X09 
X10 
Xll 
%12 
*13 
X14 
X15 
X16 
%17 
X18 
X19 
X20 
%21 
X22 



XOO 



X01 


X02 


*X03 


X04 


X05 


X06 


X07 


X08 


X09 



i 
i 

€ 
C 



* 
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X10 

ROOM FOR" 

X12 
*13 

ILES ", 

%14 

AMETER)", 

»0«,"""},Xl5 

(3RD ", 

X16 
%\7 
*18 
X19 

X20 
*21 
X22 



58660000 (//"**DUMP REQUESTED IN STATEMENT ",I6," t"), 

58670000 C//"**FUNCTlON OEPTH BEYOND SYSTEM CAPACITY IN STATEMENT 

58680000 C//"**OUT OF SPACE IN STRING STORAGE AREA — UNABLE TO FIND 

58690000 " A STRING OF ",I6»" CHARACTERS,"//), 

58700000 (//"**PRo6RAM DIED IN STATEMENT ",I6/), 

58710000 <//"**UNASLE TO OPEN FILE IN STATEMENT ",I6," — TOO MANY F 

58720000 "ALREADY IN USE,"/)* 

58730000 C//"**FlLEO ERROR IN STATEMENT ",I6, W — I/O TYPE (2ND PAR 

58740000 " MUST BE NULL OR START WITH ",«»», "J", "««,« R "#"""# 

58750000 (//"**FILEC) ERROR IN STATEMENT ", 16,"— NUMBER OF BUFFERS 

58760000 "PARAMETPR) MUST BE NUMERIC AND > 1"), 

58770000 C//"**NON-NUMERIC ARITHMETIC OPERAND IN STATEMENT "fI6)# 

58780000 (//"**DIVIDE BY ZERO IN STATEMENT ",I6), 

58790000 C//"**INDIRECT ON NULL STRING IN STATEMENT ",I6), 

58800000 (//"**PUSH-DOWN STACK OVERPOPPED AT FUNCTION RETURN IN STATEMENT 

58810000 I6)# 

58820000 C/"**FUNCTION REDEFINED IN STATEMENT M ,I6), 

58830000 C/"**MAX NUMBER OF PARAMS & LOCAL VARIABLES IS W ,I3), 

58840000 <//"**END FORMAT — MSGI", 1 10 ) ; 

58850000 WRlTECPRINT,MSGICn>P)J 

58860000 END MESSAGE!* 

58870000 %*************************************** 

58880000 PROCEDURE MESSAGETTO< I ); 

58890000 VALUE If 

58900000 INTEGER I) 

58910000 BEGIN SWITCH FORMAT MSGTO * 

58920000 ("<X**PROGRAM SEGMENT TOO LONG*"), 

58930000 C«S***DEFINE FAILURE — ERROR IN LOCAL VARIABLE LIST*"), 

58940000 <"S***DEFINE FAILURE— ERROR IN FIRST ARGUMENT*"), 

58950000 ("<***DEFINE FAILURE— NO ( IN FIRST ARG*"), 

58960000 C"S***DEFINE FAILURE — NO FIRST ARGUMENT*"), 

58970000 <»5>BAD LIBRARY PILES/*"), 

58980000 ("S/OUMPf) CALLED*/*" ), 

58990000 ("S//SN080L WIPED OUT — SORRYS*/*"), 

59000000 C H <*!NTERPRETER STACK OVERFLOW — STATEMENT TOO COMPLEX*/*") , 

59010000 ("<*DUMMY FMT — MSGT0C93S//*" )' 

59020000 <"$/**INVALID PARAMETER*"), 

59030OO0 ("S/FILE NOT AVAILABLE*/*"), 

59040000 ("S/DUMMY FMT MSGT0U2 J — SHOW TO SYSTEM AUTHORS, <//" ), 

59050000 ("S/**FUNCTION ALREADY DEFINED — FORMER VALUE LOST*")* 

59060000 <"</SYMBOL TABLE FULLS/*"), 

59070000 ("S/ILLEGAL CONTINUATION CARDS/*"), 

59080000 ("<*dUMMY FMT — MSGTO t 163S//*" ), 

59090000 ("<*DUMMY FMT--MSGT0[ 173$//*" ), 

59100000 ("S//ENTRY POINT UNDEFINED***" >> 

59110000 ("</MlSSlNG QUOTE*/*"), 

59120000 ("S/ILLEGAL CONTROL CARDS/*")* 

59130000 ("S/MlSSlNG PARAMETERS**" ) , 

59140000 ("S//ENO FMT MSGTOjg/X*" ); 

59150000 IF DATACOMF THEN 

59160000 BEGIN WRiTEf OCWRITeC * 3 , MSGTO 1 13 ) i 

59170000 IF OUTPUT THEN) 

59180000 END' 5 

59190000 END MFSSAGETTOj 

59200000 **************************************** 

59210000 PROCEDURE MESSAGETTAC I ,P ) i 

59220000 VALUE I* PJ 



XOO 
%01 
%02 
%03 
X04 
X05 
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X07 
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59230000 

59240000 
59250000 
59260000 
59270000 
59280000 
59290000 
59300000 
59310000 
59320000 
59330000 
59340000 
59350000 
59360000 
59370000 
59360000 
59390000 
59400000 
59410000 
59420000 
59430000 

59440000 
59450000 
59460000 
5947000a 
59480000 
59490000 
59500000 
59510000 
59520000 
59530000 
59540000 
59550000 
59560000 

59570000 
59580000 
59590000 
59600000 
59610000 
59620000 
59630000 
59640000 
59650000 
59660000 
59670000 

59680000 
59690000 
59700000 
39710000 
59720000 
59730000 
59740000 
59750000 
59760000 
59770000 
59780000 
59790000 



INTEGER 1) 

ALPHA Pi 
BEGIN SWITCH FORMAT MSQTA * 

("<XEH M »A1* "$**«■")* 

C<*END FMT MSGTA "» Ad*"****" ); 
IF DATACOMF THEN 

BEGIN WR!TE<DCWRITEC*J#MSGTACIJ)J 

IF OUTPUT then; 

end; 

end; 
%********•****************************** 

PROCEDURE MESSaGETTAI<I,P1#P2)J 
VALUE I, PI, P2? 
INTEGER I* PZi 
ALPHA Pi! 

begin switch format msgtai * 

<"**non-numeric argument to „"#a2>"0 

c"s**end fmt msgtai ", i*, a6* "****° ) i 
if datacomf then 

begin write<0cwritec*3,msgtaiu],p1#digitscp2),p2); 

if output then; 

end; 
end; 

procedure messagettki#pj; 

VALUE I* P; 
INTEGER I* P; 



IN STMT "»!**"***")* 



BEG 



n switch format msgti ♦ 

"<**mnt£ger overflow in stmt % i *,«**-«." ), 

«5/x**attempte0 execution of stmt with syntax error"*"* 

"STMT "*I** "***")* 
"S****G0"T0 PART IN STMT "»I** M FAILED***")* 
"<***ATTEMPTED REPLACEMENT WITH STRING REFERENCE USED IN STRING 

"VARIABLE* IN STMT » , I *, "****REPLACEMENT NOT ATTEMPTED***") * 
"S***PROGRAM LIMIT REACHED JN STATEMENT "#I**"<**")* 
"CPU TIME LIMIT * "*I*," SECONDS***")* 
"I/O TIME LIMIT a «*!*,» SECONDS***" )* 
"RULE LIWIT * "*!**"*/*"), 

"**ILLEGAL 2ND PARAM TO CLOSE IN STMT "*I*, "***")* 
"<*0EFINE FAILURE IN STATEMENT "* I*,"***" )* 
"S**FATAL ERROR IN STATEMENT "* I** "***" )* 

"SXX**FUNCTI0N DEPTH BEYOND SYSTEM CAPACITY IN STMT "* I** "<**") * 
"****OUT OF SPACER-UNABLE TO FIND ROOM FOR STRING OF "*I** 

" CHARACTERS***")* 
"<***PRO$RAM DIED IN STATEMENT "* I *, M **/*" ), 

«S***ATTEMPTED RETURN WITH NO FUNCTION CALLED— STMT ", I*»"<X*" ), 
"# »*I*,"***")* 

"**STMT. "»I**" CANT BE REACHED,***"), 

"**NON*NUMERIC ARITHMETIC OPERAND IN STATEMENT "*I*#"S**")> 
"<*DIVIDE BY ZERO IN STATEMENT "* I*,"***" )* 
"<*INDIRECT ON NULL STRING IN STMT "# I*» "***" ), 

"<*PUSH-DOWN STACK OVERPOPPED AT FCT RETURN IN STMT ",I**"<**")» 
"<***FUNCTION REDEFINED IN STATEMENT ", I*,"** *" )* 
"****LABEL RE-DEFINED IN STATEMENT "* I**"***"), 
"<***+NORMAL TERMINATION IN STATEMENT "*!*,".****")* 
"<*MAX # OF PARAMS & LOC VARS IS "*I*# M ***")* 
"<**END FMT MSGTI "*!*»"****"); 



XOO 
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xoo 
*oi 

X02 
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%03 
X04 
X05 
X06 
X07 
X08 
*09 
X10 
Xll 
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X13 
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%18 
119 
X20 
*21 
X22 
X23 
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59800000 
59810000 
59820000 
59830000 
59840000 
59850000 
59860000 
59870000 
59880000 
59890000 
59900000 
59910000 
59920000 
59930000 
59940000 
59950000 
59960000 
59970000 
59980000 
59990000 
60000000 
60010000 

60020000 
60030000 

60040000 
60050000 
60060000 
60070000 
60080000 
60090000 
60100000 
60H0OOO 
60120000 
60130000 
60140000 
60150000 
60160000 
60170000 
60180000 
60190000 
60200000 
60210000 
60220000 
60230000 
60240000 
60250000 
60260000 
60270000 
60280000 
60290000 
60300000 
60310000 
60320000 
60330000 
60340000 
60350000 
60360000 



#** 



IF DATACOMF THEN 

BEGIN HRlTEC0CWRI7Ct*3»MS6TItn#DlGlTSCP)*P)l 

if output then; 

end; 
end; 
x********message procedures********************************************* 

X********MIN****************************** ****************************** 

Integer procedure minca»B)j value a,b; integer a*b; 
min <■ if a < b then a else bj 

%********MIN***************************** *************** **************** 
X#*******MNFMNO******************* ************************* ************* 
% THE STRING BETWEEN AEP»W1»P.C AND THE NEXT BLANK IS SEARCHED FOR 

% in the n"th list of mnemonics* and thf appropriate index is returned, 
integer procedure mnemno<n»a»p); 

VALUE NJ 

INTEGER N* Pi 

ARRAY A£OU 
BEGIN LABEL FIn; 
INTEGER l# JJ 
ALPHA AAI 
IF I*SCANCHAR(" ","*%AtP,W3#P,e> > 6 

THEN MNEMNO * ELSE 

BEGIN AA.* OJ 
MVCI#ACP.WJ»PtC*AA»8*I)J 

AA «■ AAJ 

FOR J*MNEM0NICCN#0] STEP -1 UNTIL 1 DO 
IF AA = MNEM0NlCtN,.J3 THEN 

BEGIN MNEMNO * Jl 

P «• P + IJ 

go to fin; 
end; 

MNEMNO * 0; 

end; 

FINI 

EN0 MNEMNO; 



ROW I IF POSSIBLEt CELLS GIVEN BY NEWCELL ARE "PERMANENT" 
SENSE THAT RETURNCELL IS NEEDED TO RETURN THEM TO AVARABLl 
COMPARE TEMPCELL* WHICH RETURNS A CELL THAT WILL ONLY LAST 

- THE END OF THE INSTRUCTION 

ALPHA PROCEDURE NEWCELLdH 

VALUE IJ INTEGER II 
BEGIN LABEL ROWFULL* RETURN! 
INTEGER CI 
IF NEXTCELLtn * 
C ♦ NEXT-CELLU3; 
NEXTCELLtn * 

go to return; 

rowfullj for i * step 1 while i 
if nextcellei1 * then 

BEGIN C * NEXTCELLtn; 

nextcellei1 * nameec3.linki 

go to return; 
end; 

IF I i 15 THEN 



m 



THEN GO TO ROWFULLi 
NAMEtCJ.LINK; 



S 15 ANO USEDSTtI3 DO 







€ 



m 
m 



60370000 
60380000 
60390000 
60400000 
60410000 
60420000 
60430000 
60440000 
60450000 
60460000 
60470000 
60480000 
60490000 
60500000 
60510000 
60520000 
60530000 
60540000 
60550000 
60560000 
60570000 
60580000 
60590000 
60600000 
60610000 
60620000 
60630000 
60640000 

60650000 
60660000 
60670000 
60680000 
60690000 

60700000 
60710000 
60720000 
60730000 
60740000 
60750000 
60760000 
60770000 
60780000 
60790000 
60800000 
60810000 
60820000 
608 30000 
60840000 
60850000 
60860000 

60870000 
60880000 
60890000 
60900000 
60910000 
60920000 
60930000 



Begin 
c * o 

SO TO 

end; 
message0c14); 
messagett0c14)j 
death * true; 

C *• 01 

RETURN! 

X IF NEXT CELL U3 

NAMECC3 * 0; 

VALUCC3 * 0* 

NEWCELL *• CI 

% IF INFORM THpN 

END NEWCELLJ 



NEWSTROWCI); 

& i cqncstr; 
return; 



> USEDCELLtn THEN USEDCELLCI3 * NEXTCELLUJJ 



INFORMIA€l,I,o; 



*************************** 
*************************** 



X********NEWCELL***** ************************ 
X********NEWSTROW**************************** 

X NEWSTROW OPENS U? ROW I OF THE SYMBOL TABLE* AND INITIALIZES AN 
% AVAILABLE SPACE LIST IN THIS ROW, 
PROCEDURE NFWSTROWCI); VALUE IJ INTEGER I; 
BEGIN INTEGER JJ 

NAMTABLU*01«LTNK * 1 & I CONCSTR; 
FOR J * 1 STEP 1 WHILE J < STWMAX DO 
NAMTABLtlfJI.LINK «• 

usEDsnn * true; 

NEXTCELLU1 * 1 & I CONCSTR; 
END NEWSTROW; 
X********NFW5TR0W*************** 

X********NUL LARGS**************************** 
X INTERPRETER PROCEDURE: 

NULLAR6SCN) PUTS N NULL STRINGS ON TOP OF T 



J < STWMAX 

CJ+1) & I concstr; 



t************* 



m 
m 
t 

m 



*************************** 
*************************** 



* NULLARG5CN3 PUTS N NULL 5TRINS3 UN 

boolean procedure nullargscnj; value 
begin label return; 

T HIT f- /»1-B » t 



HE STACK, 

n; integer n; 



STACKSIZE THEN 



BEG 

INTEGER IJ 
IF SP + N t 

BEGIN 

inf0rmi(4*instn0); 
nullargs * falsej 
go to return; 

end; 

FOR I * SP+N-1 STEP • 

PSTtn * PTYPEtn 
SP ♦ SP + N| 
NULLARGS * TRUE; 
RETURN! 
END NULLAR6SJ 

X********nul(,AR6S**************************** 
X********NUMVAL****************************** 
X INTERPRETER PROCEOURE* 



m 



UNTIL SP 

psizEtn 



DO 

* o; 



,***** 



false is returned and val is unaltered» if 
the value of the string is assigned to val* 
olean procedure numvalc st# val) j 
lue St; alpha st; integer val; 
gin boolean stream procedure numeric* s»l> i > 
begin label return; 



X THE 

BOOL 
VA 

BE W *„ wu-ww— -..._..•. . 
BEGIN LABEL RETURN; 
TALLY * O; 



*************************** 
*************************** 

IS NON-NUMERIC* 

THE STRING IS NUMERIC* 
AND TRUE IS RETURNEDt 



; VALUE 3»I) 



* 



* • 



# 



60940000 
60950000 

60960000 
60970000 
60980000 
60990000 
61000000 
61010000 
61020000 
61030000 
M Oft 0000 
61050000 
61060000 
61070000 
61080000 
61090000 
61100000 
61110000 
61120000 
61130000 
61140000 
61150000 
61160000 
61170000 
61180000 
6U90000 
61200000 
61210000 
61220000 
61230000 
61240000 
61250000 
61260000 
61270000 
61280000 
61290000 
61300000 
61310000 

61320000 
61330000 
61340000 
61350000 
61360000 
61370000 
61380000 
61390000 
61466660 
61410000 

614200.00 
61430000 
61440000 
61450000 
61460000 
61470000 
61480000 
61490000 
61500000 



IF 

SI 
IF 



+ 7! 



SI 

go to return; end; 



X 

ST 
IF 



si «• i_oc si si ♦ 

Sc * *0" THEN 
BEGIN TALLY * It 
* l; SI «■ 81 + II 

SC * w * w THEN 
BEGIN SI * SI ♦ II TALLY * SI 
TALLY «• TALLY + 631 S ♦ TALLY! TALLY * 01 
END I 
S(IF SC < "0" THEN JUMP OUT TO Rl 
IF SC > "9" THEN JUMP OUT TO 

Si * SI + 1)1 

TALLY * II 

RETURNJ NUMERIC * TALLY; 

END NUMERIC! 



iETURNl 
RETURNI 



* VALUCST3I 

NUMERICCSTRINGLOC(ST)) THEN 

BEGIN IF ST.CH < 4096 

THEN READ(0ATA[ST.R**3*FNUM*S 
ELSE READ(0ATAtST.R**3*FlNT*S 
X THIS DISTINCTION IS NECESSA 
X (AS IN FNUM) IS USED* ONLY 

* ARE USED* AND A CH FIELD CO 

* HAND* IF "•O" IS USEO (AS I 

x is zero* an Infinite loop o 
x "repeat indefinitely"* and 
x be reached, thus* two case 
numval * true! 
end else numval * false! 
x if inform then informi ( 12* val )' 
end numval! 
%********numval******************** 

X******** OUTPUT***** *************** 
X TELETYPE OUTPUT PROCEDURE! 
BOOLEAN PROCEDURE OUTPUT! 
BEGIN 

LABEL LOOP* NOGQ, BROKE* 8ADNE 

INTEGER CNT* Q* R* TIMEXl 

BOOLEAN 6PMK! 

REAL S! 

ARRAY TANKC0«BUF0UTSIZE"13I 

STREAM PROCEDURE STOPPER(A)! 

BEGIN DI*A! DI*DI*7| DS*L 
BOOLEAN STREAM PROCEDURE MQVE( 
BEGIN Sl + Al SI*SI+C! Dl* 
DCOUTCHARdF SCa w * M 

move*tally 
end movei 

x if inform then informi i ( 5*stat 
if not datacomf then go to exit! 
output * true! 
if break then 

begin if (break*boolean(statu 

begin whenc5)! 

break * 800lean(status(sta 

END! 
IF BREAK THEN GO TO BADNEWS! 



T,CH,ST,S*VAL) 
T,W*ST.C*ST.S*VAL)I 
RY BECAUSE WHEN AN "X*" FORMAT 
THE LAST 12 BITS OF THE NUMBER 
NTAINS 13 BITS. ON THE OTHER 
N FINT)* AND THE NUMBER GIVEN 
CCURS* SINCE IS TAKEN TO MEAN 
THE REST OF THE FORMAT WILL NEVER 
S ARE NECESSARY, 



€ 

4 
€ 

4 
4 
4 
4 

4 

4 



• 
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************************************* 
************************************* 



WS* EXIT! 



IT «♦" END STOPPER! 

A*8*C>! VALUE CI 

B! TALLY*0! 

THEN TALLY*1| DS*CHR)| 



CUSER3.C9U3*STATCUSER3#U4»43)! 

S(STATtUSER3*l).f26iU)) THEN 
TCUSER3»i),C26»i3}l 



4 
i 



o 



• 







61510000 end; 

61520000 st0pperc0$writec(anssize-1).w3)* 

61530000 timex ■«• timec1)* 

61540000 loop! q*cnt oiv 8* r«-cnt mod 8* 

61550000 gpmk * m0vec0cwrltecq3,tankc 1 3#r )* 

61560000 mv(1, arrow, 7»tanku]*4)* 

61570000 write(0c0ut(statcuser3*0)»buf0utsize»tankc*3) cnogot broke 3 ; 

61580000 ie 800lean(status(statcuser]#d#t26ll3) then 60 to broke* 

61590000 if gpmk then go to exit* 

61600000 cnt * cnt + dcoutchar* 

61610000 go to loop* 

61620000 BROKE' 

61630000 BREAK *■ TRUE* 

61640000 OUTPUT * FALSE* 

61650000 GO TO EXIT; 

61660000 N060I 

61670000 X SOME FIELDS IN THE STATUS WORD ARE» 

61680000 X C23U3 « 1 IF ABNORMAL CONDITION SENSED BY ADAPTER* 

61690000 X t2AU3 * 1 IF READ READY. 

61700000 X C28J13 * 1 IF BUFFER OVERFLOW (ON INPUT), 

61710000 X t30IU * 1 IF NOT READY, 

61720000 S ♦ STATU5($TATeUSER3#0)J 

61730000 IF B00LEAN<S.E30»ln THEN GO TO BADNEWS* 

61740000 IF TIMEC1) - TIME* > WAITTIME THEN GO TO BADNEW5* 

61750000 IF S. £23123X0 OR B00LEAN( S , [28 1 1 ] ) THEN WHENC5); 

61760000 X WAIT 5 SECS IF WRITE DID NOT TIME OUT 

61770000 GO TO LOOP* 

61780000 BADNEWS? 

61790000 OUTPUT * FALSE* 

61800000 FINDUSERS; 

61810000 EXIT» END OUTPUT* 

61820000 iHisfixn END DATA COM OUTPUT PROCEDURE «Mi«:: S s« S tr: 

61830000 X********POP** ********************************************************** 
61840000 BOOLEAN PROCEDURE POP(STLQC)* VALUE STLOC* ALPHA STLOC* 
61850000 BEGIN ALPHA T, ST* 
61860000 INTEGER I* 

61870000 X IF INFORM THEN INF0RMAC2* STLOC >* 

61880000 ST * VALUCSTL0C3.LINK; 

61890000 IF ST * THEN POP * FALSE ELSE 

61900000 BEGIN VALUCSTL0C3 * T * VALUCST3* 

61910000 IF T.CH i 3 THEN X RESET BACK-POINTER TO SYMB TABLE, 

61920000 BFGIN I * T,CH - 2* 

61930000 Mv(2»STLOC#6*OATAtT,R,I,W3#I,C)* 

61940000 END* 

61950000 VALUCSTL0C3.LINK ♦ VALUt ST 3 .L INK* X LINK TO NEXT CELL ON STACK, 

61960000 RETURNCELL(ST)* X PUT BACK ON AVSL, 

61970000 POP * TRUE* 

61980000 END* 

61990000 END POP* 

62000000 X********POP************************************ *************** ********* 

62010000 X********pRo® ESSC ON TROLCARO**************** ******* ********************** 

62020000 X PROCESSCONTROLCARD USES CHAR, MOVECHARS, CONTROLPARAMETER , 

62030000 PROCEDURE PR0CE5SC0NTR0LCAR0C A )* 

62040000 ALPHA ARRAY AC03* 

62050000 BEGIN INTEGER T» PJ 

62060000 LABEL 

62070000 E# X END OF PROCEDURE 
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62080000 ILLEGAL* X ILLEGAL CONTROL CARD 

62090000 NOFIlE* X FILE REFERENCED WHICH CANT BE READ 

62100000 PARAMERR, % ERROR IN PARAMETER TO CONTROL CARD 

62110000 PARAMMISSING* * CANT FIND A NEEOEO PARAMETER TO CONTROL CARD 

62120000 X 

62130000 P * I * 1 « SKIPCHARC" W #A[*3#1)' 

62140000 DO P ■* P ♦ 1 UNTIL P - I > 7 OR CHARTYPEt CHARC A[* 3, P ) 3 / 3i 

62150000 IF P - I > 7 THEN GO TO ILLEGAL* 

62160000 AA * 0? 

62170000 MV(P*I»Af*3»I»AA#8-P+I); 

62110000 FOR I * NUMC8NTR0LCARDS STEP -1 UNTIL DO 

62190000 IF AA s C9NTRQLCAROU3 THEN 

62200000 BEGIN CASE I OF 

62210000 %********CONTROL CARDS***************** 

62220000 BEGIN GO TO ILLEGAL* 

62230000 X II -DEBUG TURNS ON DEBUG MODE 

62240000 BEGIN DEBUGGING * TRUEj 

62250000 IF NEXTSOURCERECORD * THEN NEXTSOURCERECORD ♦ U 

62260000 DEBUGRULELIMITEXISTS * ALIMITEXISTS * TRUE* 

62270000 X THIS WILL CAUSE SUSPENSION AT THE FIRST INSTRUCTION. 

62210000 END* 

62290000 X 21 -PCC CAUSES ALL CONTROL CARDS TO BE PRINTED 

62300000 PCC * true; 

62310000 x 31 -list causes the program to be listed. 

62320000 begin if ll5tspaces*c0ntr0lparameterc a,p ) < then listspaces «• 01 

62330000 lstf «■ true; 

62340000 end; 

62350000 x 4! -unlist causes the listing to stop 

62360000 LSTF * FALSe; 

62370000 X 51 -PUNCH CAUSES THE PROGRAM DECK TO BE PUNCHED 

62380000 PUNCHF * TRUE* 

62390000 X 61 -EJECT EJECTS THE LINE PRINTER TO THE NEXT PAGE 

62400000 BEGIN I * CONTRQLPARAMETERC A, P ) J 

62410000 IF I < -1 OR I > U THEN GO TO PARAMERRJ 

62420000 IF I < 1 THEN I «■ 1 ; 

62430000 IF LSTF THEN WRITlCPRINTt 1 3 )J 

62440000 END! 

62450000 X 7f *SPACE <INTEGER> PRODUCES <INTEGER> BLANK LINES IN THE LISTING 

62460000 BEGIN 

62470000 I * CONTROLPARAMETERCA,P); 

62480000 FDR 1*1-1 WHILE I * DO WRlTEC PRINT, FBL )} 

62490000 END; 

62500000 X §| -WIDTH <InTEGER> SETS THE NUMBER OF CHARS IN EACH CARD IMAGE 

62510000 X TO BE CONSIDERED PART OF AN INSTRUCTION; ALL CHARS AFTER THE NTH 

62520000 % ARE TO BE IGNORED BY THE COMPILER, 

62530000 % IF THIS CARD ISNT USED* THEN FIELOSlZE IS ASSUMED TO BE 72. 

62540000 BEGIN 

62550000 if i * controlparameterc a,p ) > 80 or i < 
62560000 then go to paramerR; 

62570000 FIELDS1ZE * H 

62580000 END; 

62590000 X 91 -26 TURNS ON CHARACTER SET CONVERSION' FROM THE 026 KEYPUNCH 

62600000 BEGIN CONVERTF * TRUE* 

62610000 CONVERTSTRINGS ♦ FALSE; 

62620000 END; 

62630000 X 101 "3600 CAUSES CHAR SET CONVERSION AND TRANSLATION OF I/O 

62640000 % STRINGS FROM CDC 3600 SNOBOL. 



• 



• 
• 

• 

• 



# 



€ 









62650000 
62660000 
62670000 
62680000 
62690000 
62700000 
62710000 

62720000 
62730000 

62740000 
62750000 
62760000 
62770000 
62710000 
62790000 
62800000 
62810000 
62820000 
62830000 
62840000 
62850000 
62860000 
62870000 
62880000 
62890000 
62900000 
62910000 
62920000 
62930000 
62940000 
62950000 
62960000 
62970000 
62980000 
62990000 
63000000 
63010000 
63020000 
63030000 
63040000 
63050000 
63060000 
63070000 
63080000 
63090000 
63100000 
63110000 
63120000 
61130000 
63140000 
63150000 
63160000 
63170000 
63180000 
63190000 
63200000 
63210000 



CCNVFRTF * 
11 « "85500 

CONVERTF * 
12J -DEFINE 

% BUT SETS 



CONVERTSTRINGS * TRUE; 

CANCELS THE EFFECT OF PREVIOUS -26 AND "3600 CARDS, 

CONVERTSTRINGS * FALSE* 

A*B*C ACTS LIKE THE INTRINSIC FUNCTION DEFINE* 
UP THE FUNCTION AT COMPILE TIME. THIS SAVES THE SPACE 
X THAT A RUN-TIME DEFINITION WOULD TAKE FOR LITERALS AND INSTRUC- 
X TION CODE, PLUS THE TIME NEEDED FOR COMPILATION. 
X A. 8* AND C MUST BE LITERALS, 
BEGIN INTEGER ARRAY STC1 » 3i; 
INTEGER j; 
LABEL DEFl* DEFERR; 
X 

IF NOT SYMBTABLSETUP THEN INITI ALIZESYMBTABL; 
FOR J * 1*2*3 DO ST[J3 «• 0} 
FOR U * 1*2*3 DO 

BEGIN P * P ♦ SCANCHAR( MM "* W * M #ACP,W3*P.C); 
IF P * INSTSIZE THEN GO TO DEFl; 
CHARCACP,Wl*P.C) * % M THEN 
BEGIN STCJ3 «■ 0; 

p «. p + i; 

END ELSE 

BEGIN P «• P ♦ 1? 

I * P ♦ SCANCHAR( M »w f QMARK*A[P,W],P.C); 

IF I J INSTSIZE THEN GO TO DEFERR; 

STfJ3 * NEWCELLCO); 

AA «■ STRING<I-P#STU3>; 

MOVE(I*P*AEP,W3*P,C*DATA£AA,R*AA.W3*AA,C)* 

VALUCSTCJH «• aa; 

P * I + SCANcHAR(%% w »%An,W3*I.C+l) 



IF 



»», m 



'*- THEN P 
GO TO DEFlf 



* P ♦ 



+ 1; 
i; 



IF CHARCAtP.W]#P,C) 
IF P > INSTSIZE THEN 

end; 

End* 

DEFlt IF NOT SNBLDEFlNE(STtl3*STt23*STC3l) THEN GO TO PARAMERR; 

for j «• 1*2.3 do if st[j3 t then returncell < stc j3 31 

go to e; 
deferrt message0(19); x missing quote 

messa6ettoc193j 

end define; 
x 131 -wait <n> sets the waiting time for remote i/o to n seconds, 

x if n is not > 0* then st andardwaittime is used. 

BEGIN AA * C0NTR0LPARAMETER(A*P3; 
IF AA < THEN GO TO PARAMERR* 
WAITTIME * AA x 60; 

end; 
x 14 -ltmit <i> lsinteger> puts a limit 
quantity <i>; twis limit is checked at 
of each instruction, the 
rules puts a limit to 



X 
% 
X 

X PROCESS PUTS A LIMIT (IN SECONDS) TO CPU 
X 10 PUTS A LIMIT (IN SECONDS) TO I/O TIME 
BEGIN LABEL LOOP; 
LOOP! P * P ♦ i; 

P ♦ P + SKIPCHARC "*A[*3»P); 

IF P > INSTSIZE THEN GO TO PARAMERR; 

I * SCANCHAR(" M * M »"*A[*3*P); 

IF I > INSTSIZE THEN GO TO PARAMERR; 



TO 
THE 



OF <INTEGER> 

THE START OF 
CURRENT VALUES OF <I> AREJ 
THE NUM8E R OF STATEMENTS EXECUTED. 



THE 
EXECUTION 



TIME 



* « 






* » 



* * 



n 



• 



• 

# 



63220000 
63230000 

63240000 
63250000 
63260000 
63270000 
63280000 

63290000 
63300000 
63310000 
63320000 
63330000 
63340000 
63356000 
63360000 
63370000 
63380000 
63390000 
63400000 
6 3410000 
63420000 
63430000 
63440000 
63450000 
63460000 
63470000 
63480000 
63490000 
63500000 
63510000 
63520000 
6 35 30000 
63540000 
63550000 
63560000 

63570000 
63510000 

63590000 
63600000 
63610000 
63620000 
63630000 
63640000 
63650000 
63660000 
63670000 
63680000 
63690000 
63700000 
63710000 
63720000 
63730000 
63740000 
63750000 
63760000 
63770000 
63780000 



IF I ■ 2 THEN 

BEGIN IF EQ<2#W0RDS[8J*3»ACO>P) 

THEN I * ELSE GO TO LOOP; 
END ELSE 
IF I ■• 5 THEN 

BEGIN IF EQ(5#W0RDS[83>5#AC*3»P) 

THEN I ♦ 1 ELSE GO TO LOOP; 
END ELSE 
IF I * 7 THEN 

BFGIN IF EQ<7,W0RDSC9],2#AC*],P> 

THEN I * 2 ELSE GO TO LOOP! 
END ELSE 
GO TO LOOPJ 

IF CP*CONTROLPARAMETER(A,P)) < 
CASE I OF 

BEGIN 

BEGIN IOLIMIT * P x 60i 

IOLIMITEXISTS ♦ TRUE; 

end; 

begin rulel1mit * p; 

rulelimitexists * truei 

end; 

BEGIN CPULIMIT ♦ P x 60i 
CPULIMITEXISTS * TRUE; 

END 

end cases; 
alimitexists * true* 
end lmt; 
15> -size <n> tells the compiler how 

% ASIDE IN SYMBTABl, THIS CONTROL CARD 

% instructions; the value of <n> should 
% of instructions in the program 
begin define dummy**; 
if 5ymbtablsetup then go to illegal; 
i * c0ntr8lparameter(a,p); 

IF I < THEN GO TO PARAMERR; 

< 150 THEN BEGIN SCATTERNO 

BEGIN 
BEGIN 
BEGIN 
BEGIN 



THEN GO TO PARAMERR* 



MANY SCATTER AREAS TO SET 
MUST APPEAR BEFORE ANY SNOBOL 
BE APPROXIMATELY THE NUMBER 



IF 
IF 
IF 
IP 
IF 



300 
475 
600 
800 



THEN 
THEN 
THEN 
THEN 

5; 



*• 


o; 


GO 


TO 


e; 


end; 


* 


i; 


GO 


TO 


e; 


end; 


* 


2; 


GO 


TO 


e; 


end; 


* 


3; 


GO 


TO 


e; 


end; 


*> 


4; 


GO 


TO 


e; 


end; 



OF 



SETS THE VARIABLE <NAME> TO 
<LITERAL>. 



initializesymbtabl; 



SCATTERNO 
SCATTERNO 

SCATTERNO 
SCATTERNO 
SCATTERNO 

:■: end; 

161 -SET <NAME> <LlTERAL> 
% HAVE THE INITIAL VALUE 
BEGIN INTEGER PI* P2* 
IF NOT SYMBTABLSETUP THEN 
% FIND NAMEl 

I 4. p * p + SKIPCHAR( W M #A[*3*P); 

WHILE CHARTYPEtCHAR(ACP.W3*P.C)1 ■ 3 DO P * P ♦ U 
IF P J INSTSIZE OR P * I THEN GO TO PARAMMISSING; 
AA «■ ENTERST(P»I*AE*3t I««SYMB"); 
% FIND VALUE* 

PI ♦ P ♦ SCANCHAR< HHH # M,,w ,A[P,W3,P f C); 
IF Pi * INSTSIZE THEN GO TO PARAMMISSING; 
P ♦ PI ' ♦ PI ♦ i; 
WHILE P < INSTSIZE DO 



€ 



• 



63790000 BEGIN P2 * P ■♦ 5CANCMAR<""% W '"'# AtP,W3*P»C 3) 

63800000 IF P2 2 INSTSIZE THEN % MISSING QUOTE* 

63810000 BEGIN MESSA6EQ( 19) ; 

63820000 MESSAGETT0(19); 

63830000 GO TO EJ 

63840000 END; 

63850000 p *, 92 + SCANCHARC ""","*» f AtP2. W3,P2.C+1 ) ♦ i; 

63860000 IF P < INSTSIZE THEN X SQUEEZE INSTRUCTION* 

63870000 BEGIN MOVEC INSTSIZE-P*i> AEP , W3 ,P,C+1* A[P2. W3#P2 ,C > I 

63880000 INSTSIZE ♦ INSTSIZE - £P • P2 + 13) 

63890000 P * P2 ♦ I) 

63900000 END) 

639ioooo end; 

63920000 X Pi, P2 NOW DELIMIT THE VALUE, 

63930000 AB * STRlNQeP2-Pl* AA 3 1 

63940000 M0VE(P2-Pl*ACPl.NJ#FltC#FIRSTCHARCAB>)J 

63950000 VALTABLCAA,STR»AA«STWJ ♦ ABI 

63960000 END SET; 

63970000 % 171 -LIBRARY <FID>/<MFID> CREATES A LIBRARY COPY QF THE 

63950000 X SNOBOL PROGRAM BEING COMPILED* WITH THE NAME <MFID>/<FID>, 

63990000 X THIS LIBRARY FILE CAN BE LOADED FOR A LATER RUN WITH THE CONTROL 

64000000 % CARD -LOAD <MFIB>/<FI0> . 

64010000 BEGIN DEFINE DUMMY «#J 

64020000 IF ENTRY * THEN GO TO ILLEGAL; 

64030000 IF LOADF THEN IF SLASTLABEL * THEN 

64040000 BEGIN I * PTR) 

64050000 IF NOT (GTS AND GTF 3 THEN 

64060000 BEGIN 

64070000 STORECHARSCIF GT THEN 2 ELSE 3# H /-E H #IF 6T THEN 6 ELSE 531 

64080000 IF NOT GT THEN I ♦ I ♦ U 

64090000 IF NOT GTS THEN 

64100000 BEGIN SLOC * II 

64H0000 MV«2*SL0C, 6/COOEC MARKER, W3»MARKER.C + 3)I 

64120000 END! 

64130000 IF NOT GTF THEN 

64140000 BEGIN FLOC * II 

64150000 MV( 2*FL06# 6# CODE [MARKER »W]# MARKER, C*5 3 I 

64160000 ENDI 

64170000 ENDI 

64180000 AA * STRING(PTR# SLASTLABEL >l 

64190000 M0VE(PTR#C0DE£*3*0*FIRSTCHAR(AA3); 

64200000 VALUrSLASTLABEL3.L0C * AA) 

64210000 IF PTR > MAXINSTSIZE THEN MAXINSTSIZE * PTR) 

64230000 PTR * II 

64230000 end; 

64240000 p «• p ♦ skipchar< w h *ac*3*p3) 

64250000 i * p + scancharcv"*" %a[*3*p3; 

64260000 if i * fielosize or char( ac i . n 3 > 1 ,c 3 x v" then go tq paramerri 

64270000 AA «■ 0; 

64280000 MV(7,BLANKS»1#AA*1); 

64290000 AB * AA; 

64300000 MV(MiN<7,I-P)#AEP,W3#P,C>AA*l3; 

64310000 P * I " ♦ i; 

64320000 I * P + SCANCHAR( M M #QMARK# A[P «W 3 1? ,C 3 ; 

64330000 IF I i P OR I > INSTSIZE THEN GO TO PARAMERRI 

64340000 MV(MlNC7,I-P)»ACP«W3#P.C#ABf 13; 

64350000 CREATELIBRARYCAAtAB); 



# • 



* * 



m 



m 
m 

m 
m 



m 
m 
m 
# 



64360000 
64370000 
64380000 
64390000 
64400000 
64410000 
64420000 
64430000 
64440000 
64450000 

64460000 
64470000 
64480000 
64490000 
64500000 

64510000 
64520000 
64530000 
64540000 
64550000 
64560000 
64570000 
64580000 
64590000 
64600000 
64610000 
64620000 
64610000 
64640000 
64650000 
64660000 
64670000 
64680000 
64690000 
6470000O 

64710000 
64730000 
64730O0O 
64740000 
64750000 
64760000 
64770000 
64780000 
64790000 
64800000 
64810000 
64820000 
64830000 
64840000 
64850000 
64860000 
64870000 
64880000 
64890000 
64900000 
64910000 
64920000 



END library; 

181 -LOAD <A>/<8> CAUSES THE DISK FILE <A>/<B> TO 
% CONSIDERED A COMPILED SNOBOL PROGRAM, AND LOADED, 
X IS ILLEGAL IF INSTRUCTIONS* -DEFINE OR -SET CARDS 



BE 

THIS CARD 
HAVE BEEN 



% ALREADY ENCOUNTERED. IN ADDITION* ONLY ONE -LOAD CARD IS 

% ACCEPTED PER JOB, 

BEGIN DEFINE DUMMY**) 

IF SYMBTABLSETUP THEN GO TO ILLEGAL) 

P * P + SKIPCHARC ",AC*3,P)) 

1 * P ■♦ SCANCHAR€V°, W *,A[*3*P)) 

IF IS INSTSIZE OR CHAR(AU,W3»I,C3 * "/" THEN 60 TO PARAMERR) 

A A * 0.J 

MV<7, BLANKS, 1,AA,1)) 

AB * AA) 
MVCMINC7,I-P),ACP,W3,P«C,AA,1>) 

P *• I + 11 

I * p ♦ SCANCHARC M ,QMARK,AfP.W3,P,C>) 

IF I $ P OR I > INSTSIZE THEN GO TO PARAMERR; 

MVeMlNC7,I-P),AtP,W3,P,C,AB*l)) 

LOADLlBRARYf AA*AB)i 

if death then go to endterpret) 

end load; 

l'9l -compile <a>/<b> tells the loader to compile the disk file 
x <a>/<b> into the program at the point where this card appears, 
begin file in prog disk serial (1*10,30)1 
boolean rmt, buffulu 
alpha array 8ufc0«103, xcoj63) 
integer si, s2) 

ALPHA AA, AB) 
% 

p + p + skipchaRC m ,ac*3,p); 

I *■ p •+ SCANCHARCV W , W w ,A[*3*P)) 

IF I £ INSTSIZE OR CHARC At I , W 1, 1 . C) * "/* THEN GO TO PARAMERR) 

AA «< o; 
mv(7,blanks,i,aa,d; 

AB «- AA) 
MV(Sl*MIN(7,I-P),AEP,W3,p,C,AA,n; 

P *> I + 1) 

I «• P * SCANCHARC ",QMARK,AtP,W3,P.O) 

IF I 5 P OR I > INSTSIZE THEN 60 TO PARAMERR) 

MV(S2*MIN(7,I-P),ACP,W3,P,C*AB,1)) 

FILL PROG WITH AA,AB) 

SEARCH(PR0G,X[*3)* 

IF XC03 < THENGO TO NOFILE* 

IF BUFFULL*BUFFERFULL THEN MOVEWOSf 1 0#BUFFER£ 03 , 8UF 1 03 ) i 

RE A&fPROG, 10, BUFFER C*3) CNOFILE 1 NQFILE3 ) 

BUFFERFULL * TRUE) 

LQADERLEVEL * LOADERLEVEL + 1* 

RMT * PROGRAMFROMREMOTE) PROGRAMFROMREMOTE «• FALSE) 

LOADeRCPROG)) 

WRITf(BUF0UTt*3,FEN0PR0G>) 

MV(Si,AA,l,BUFOUT[*3,22)) 

MV(1,SLASH,7,BUF0UTC*3,22+S1)' 

MV(S2,AB,1,BUF0UT|*3,23*S1)) 

WRITF(PRfNT,5*8UF0UTC*3)) 

IF Oatacomf THEN 

BEGIN MVC2,CRLF,5,0CWRlTEt*3,0)) 



i 

i 

i 

i 



t 



• 






• 



# 
• 

• 



6*930000 
64940000 
64950000 
64960000 
64970000 
64980000 
64990000 
65000000 
65010000 

65020000 
65030000 

65040000 
65050000 
65060000 
65070000 
65080000 
65090000 
65100000 
65110000 
65120000 
65130000 
65140000 
65150000 
65160000 
65170000 
65180000 
65190000 
65200000 

65210000 
65220000 
65230000 
65240000 
65250000 
65260000 
65270000 
65280000 
65290000 
65300000 
6S310000 
65320000 
65330000 
65340000 
65350000 
65360000 
65370000 
65380000 
65390000 
65400000 
65410000 
65420000 
65430000 
65440000 

65456000 
65460000 

65470000 
65480000 
65490000 



MVC21+S1+S2#BUF0UTC*3#2>DCWRITEC*J»2); 
Mv(3,CKLF#5,DCWRITE[*3,23 + SH.S2)J 



c 

t 



if output then; 

end; 
if bufferfull*8uffull then m0vew05< lo*bufe03>8ufferc03 >j 
loaderlevel * loaderlevel - 1? 
programfrqmremote * rmt; 

END COMPILE CARD; 
% 201 "INFORM TURNS ON INFORMATIVE DIAGNOSTICS. IF THE SYSTEM- 
% DEBUGGING FLAG IS TRUE* THEN THE SYSTEM DEBUGGING AIDS 
% ARE ENABLEDt 
BEGIN INFORM * SYStEMDEBuGGInG; 

printmessagfs * true; 

END; 
% 2lt -SILENSE TURNS OFF DIAGNOSTIC MESSAGES TURNED ON BY -INFORM 

INFORM * PRINTMESSAGES * FALSE; 

END CONTROL CARDS CASE STATEMENT; 
X********C0NTRQL CARDS***************** 

GO TO EJ 

end; 

ILLEGAL! 

MESSAGE0C20); 

MESSAGETT0C20); 
MESSAGES «• MESSAGES + U 

go to e; 

PARAMMISSING* 

MESSAGE0C21); 

ME5SA6ETT0C21)I 

MESSAGES * MESSAGES + 11 

GO TO El 
NOPILE* 

MESSAGEO(U); 

MESSAGETTO(ll); 

GO TO e; 
paramerri 

messageocio); 

MESSAGETTOClO); 
MESSAGES «• MESSAGES + 11 

E! end processcontrolcard; 

x#****#**processcontrolcard ********************************************* 

X********PUSH*********************************************************** 
BOOLEAN PROCEDURE PUSHe STLOC»NEWVAL )i 

VALUE STLOC* NEWVAl; ALPHA STLOC» NEWVAL; 
BEGIN ALPHA ST, It lit 
INTEGER I! 

L.ABEL RETURN; 

X IF INFORM THEN INFQRMA( 1 #STLOC >; 

ST * NEWCELLCSTLOC.STR); 

IF DEATH THEN 

PUSH » FALSE! GO TO RETURN; 

* Ti * VALUCSTL0C3; 

5 3 THEN X IF < 3 THERE IS 

I * Tl.CH * 2; 
MV(2#ST»6#DATAtTl,RfI,W3»I.C)^ 

end; 

VALUEST3.LINK «- VALUt STLOC 3 .LINK! 
VALUCSTL0C3 * & Tl C1UJ43 & ST CLINK; 



• 



# 



BEGIN 
VALUCST3 
IF Tl.CH 

BEGIN 



end; 

no string being pointed to, 



-•* . * 



• 



• 

• 






65500000 IF NEWVAL t THEN % ASSIGN 

65510000 BEGIN IF STLOC * NEWVAL 

65520000 THEN NEWVAL ♦ STJ 
65530000 ST * VALUENEWVAL3 *S; 

655*0000 T * STRINGCST>STUGC>J 

65550000 IF DEATH THEN 

65560000 BEGIN *USH * FALSE* GO 

65570000 NEWVAL * VALUENEWVAL3 ; 
65580000 MOVE (ST#FIRSTCHAR( NEWVAL) 
65590000 VALUESTL0C31L0C * TJ 
6560 WO ENDI 
65610000 PUSH * TRUE; 

65620000 Return i 

65630000 END PUSH! 

656*0000 X********PUSH *************** 

6565.0000 X********RETURNCELL ********* 

65660000 PROCEDURE RETURNCELL<N ) ; VAL 

65670000 BEGIN DEFINE DUMMY»#; 

65680000 X IF INFORM THeN 1NF0RMA(3»N 

65690000 NAMEEN3 * & NEXTCELLEN ,STR 

65700000 VALUCN3 * Oj 

65710000 NEXTCELLEN, STR3 * NJ 

65720000 END RETuRNCELLJ 

65730000 X********RETURNCELL* ******** 

65740000 X********RETURNTEMP********* 

65730000 PROCEDURE RETURNTEMPSl 

65760000 BEGIN INTEGER II ALPHA ST,p; 

65770000 X IF INFORM THEN INF0RM0C7); 

65780000 FOR I «• STEP 1 UNTIL 15 DO 

65790000 IF TEMPLISTEI3 * THEN 

65800000 BFGIN ST * TEMPLISTEI] 

65810000 P ♦ NEXTCELLEI3* 

65820000 TEMPLISTCI3 ♦ ®; 

65830000 NEXTCELLEI3 * NAMEEST3 

65840000 NAMEEST3 * & P CLINK 

65850000 END; 

65860000 END RETURNTEMPs; 

65870000 X********RETURNTEMP********* 

65880000 X********SCATTFR************ 

65890000 ALPHA PROCEDURE SCATTERCSIZE 

65900000 VALUE SlZE* P» XI 

65910000 INTEGER SIZE* P* 

65920000 ALPHA ARRAY UOCCOj; 

65930000 ALPHA X; 

65940000 BEGIN ALPHA I* J» K; 

65950000 J * IF SIZE « THEN 1/X ELS 

65960000 FOR I ♦• 1 STEP 1 UNTIL SIZE 

65970000 J»J*X/CI* CHARELOC 

65980000 K * J.E8»303) 

65990000 I.STR * ENTIERCK MOD (SCATTE 

66000000 J.CH9J * Oj 

66010000 X LITERALS ARE SCATTERED IN 

66020000 I.STW ♦ IF X * "LIT" 
66030000 THEN SCATTERSIZE ♦ ENTIER 
66040000 ELSE ENTIERCJ MOO SCATTER 
66050000 IF I * THEN I * 1J 
66060000 SCATTEft * II 



NEW VALUE 
X PUSH(N,N) CALLED, 
X RE»ASSIGN OLD VALUE. 



TO RETURN) END) 
*FIRSTCHAR(T)); 



******************************************** 
******************************************** 

ue n; alpha n; 

); 

3 clink; 



******************************************** 
******************************************** 



m 



IF USEDSTEI3 THEN 



; 



•LINKJ 

; 



******************************************** 
******************************************** 

#loc»p»x); 






e size/x; 

do 

ECK*p+i-n»w3*K,o); 

RNO+l)); 

TO A DIFFERENT AREA THAN OTHER QUANTITIES} 

(J MOD 16) 

size); 






o 



m 



m 
m 



m 



66070000 
66080000 
66090000 
66100000 
66110000 
66120000 
66130000 
66140000 
66150000 
66160000 
66170000 
66180000 

66190000 
66200000 
66210000 
66220000 
66230000 
66240000 
66250000 
66260000 
66270000 
66280000 
66290000 
66300000 
66 310000 
66320000 
66330000 
66340000 
66350000 
66360000 
66370000 
66380000 
66390000 
66400000 
66410000 
66420000 
66430000 
66440000 
66450000 
66460000 
66470000 
66480000 
66490000 
66500000 
66510000 

66520000 
66530000 
66540000 
66550000 
66560000 

66570000 
66580000 
66590000 
66600000 
66610000 
66620000 
66630000 



THEN 

THEN 
THEN 



END scatter; 

%********SCATTFR******************************************************** 
X********5EARCHST******************* ************************************ 

alpha procedure searchst(n*l*p*x); 
value n, p» x; 

INTEGER Nf Pi 
ALPHA ARRAY LCOJJ 
ALPHA X; 

begin alpha j* k* 
integer i* xtest; 
label found* fail; 

X 

XTEST * IF X * "SYMB" 

IF X * "FCT" 

IF X ■■ "INST" THEN 3 ELSE 0* 

I ♦ scatter(n»l»p»xj; 

WHILE I i 00 

BEGIN IF (IF N * (K*NAMEt 13 ) .S 
THEN FALSE 

ELSE EQUALCN,L»P#FIRSTCHAR<K))) 
THEN IF CIF N * THEN K.LQC * ELSE TRUE) 
THEN IF K.TYPE « XTEST 
THEN GO TO FOUND; 
I «• K.LINKi 

end; 

FAIL* 

i * "i; 

FOUNOJ 

searchst * 
eno searchst; 



ELSE 
ELSE 
ELSE 



I 
i 
I 

i 

i 
f 
i 




% THE snobol define, 

* snbloefine uses char* scanchar* enterst, min* string* mqvechars, 

BOOLEAN PROCEDURE SNBlDEFInECST1»ST2#ST3)J 
VALUE STl* ST2* ST3f 



VALUE STl* ST2. ST3f 
ALPHA STl* ST2* ST3; 

%.'........'.. 

BEGIN 

DEFINE PARAMMAX • 30 *i 

INTEGER I* PI* P2* LVNO; 
ALPHA PROT* ENT* LVARS* STLOC; 
INTEGER ARRAY LV CO*PARAMMAX 3 ; 

LABEL PROTERR* LVERR* RENVOI* TOQMANY; 
IF STl m THEN 

BEGIN % NO FIRST PARAM (PROTOTYPE), 
MESSA6E0(4); 

messagettou); 

go to renvoi; 
end; 

PROT ♦ VALUtSTn; 

ENT * IF ST2.STW « THEN ELSE 

LVARS* IF ST3.STW ■ THEN ELSE 

X 

X FIND NAME1 



X MAX NUMBER OF PARAMS & LOC VARS ALLOWED, 



* 
m 
m 



VALUCST23; 
VALUtST33; 



• 



66640000 
66650000 
66660000 
66670000 
66680000 
66690000 
66700000 
66710000 
66720000 
66730000 
66740000 
66750000 
66760000 
66770000 
66780000 
66790000 
66800000 
66810000 
66820000 
66830000 
66840000 
66850000 
66860000 
66870000 
66880000 
66890000 
66900000 
66910000 

66920000 
66930000 
66940000 
66950000 
66960000 
66970000 
66980000 
66990000 
67000000 
67010000 
67020000 
67030000 
67040000 
67050000 
67060000 
67070000 
67080000 
67090000 
67100000 
67HO0O0 
67120000 
67130000 
67140000 
67150000 
67160000 
67170000 
67180000 
67190000 
67200000 



PI * PROT.CH ♦ SKIPCHARC" ",DATACPRQT ,R,PRQT , W3 » PROT *C) \ 
P2 * PI ♦ SCANCHARCM«,QMARK,DATACPR0T.R#P1.W3,P1,C>; 

if P2 - pi > prqt.s then 

BEGIN MESSA6E0C3); 
MESS AGETTSC 3) J 
GO TO RENVOI? 

END? 
STIOC ■♦ ENTERSTCP2"P1*DATACPR0T,R#*3>P1> , 'FCT ,, )J 
LVCLVN0*03 * ENTERST(P2*Pl*0ATAtPR0T.R**3*Pl# w SYM8"); 
IF PRINTMESSAGE5 THEN % CHECK WHETHER ALREADY DEFINED* 

IF VALUCSTIQCJ.UNK * THEN 
IF LOAOF THEN 

BEGIN MESSAGE0U3); MESSAGETTOC 1 3 )J END ELSE 

BEGIN MESSAGEI(21#INSTN0); MESSAGETTI C21# INSTNQ )i 
% 

* FIND ENTRY POINT' 
ENT ♦ IF ENT.S * 

THEN ENTERST(P2*»P1.DATACPR0T.R#*3»P1* M INST M ) 

ELSE ENTERST (ENT .S, OATAfENT ,R* *3*ENT ,CH» M INST")? 
% 

% PROCESS FORMAL PARAMETERS! 

I * PROT.CH ♦ SCANCHAR( M )«,QMARK»DATAtPROT,R#PR0T,W]#PROT»C); 
IF 1 < P2 - PROT.CH THEN GO TO PROTERR* 
PI * P2 + H 

WHILE Pl < I 00 

BEGIN PI * Pl + SKIPCHARC" w #DATAtPRoT ,R#P1 ♦ W 3 »Pl .C ) i 

P2 * Pl ♦ MINC 

SCANCHAR( W # W * H ) H »BATACPR0T.R*P1.W3#P1,C)* 
SCANCHARf" "*QMARK#DATACPR0T,R>P1.W3#P1,C)>; 

IF P2 > I THEN P2 * I) 

IF Pl * P2 THEN GO TO PROTERR* 

IF LVNO * LVNO+1 > PARAMMAX THEN GO TO TOOMANYJ 

LVCLVN03 * ENTERST('P2"Pt*DATAEPR0T.R#*J»Pl»"SYMB">* 

P2 * P2 + SKIPCHARC H #DATAtPR0T.R#P2.W3*P2.C); 



• 



end; 



IF P2 < 

Pl * P2 
END? 



AND 
lj 



CHAR(DATAtPR0T.R»P2,W3#P2.C) / "*" THEN GO TO PROTERRJ 



• 



process local variables! 
* lvars.ch + lvars.s) 
♦ lvars.ch; 



% 
% 

I 
Pl 

I * Pl -f LVAflS.SJ 
WHILE Pl < I DO 

BEGIN Pl * Pl + SKIPCHAR( W »,DATAUVARS,R* Pl , W3#Pl ,C ) i 

P2 * Pl + MINC 

SCANCHAR("#"> w ) M #DATAtLVARS,R,Pl.W3#Pl,C), 
SCANCHARf »»QMARK>DATACLVARS.R#Pl.W3»Pl.C)); 

IF P2 > I THEN P2 * It 

IF LVN0*LVN0*1 > PARAMMAX THEN GO TO TOOMANYJ 

LVCLVN03 * ENTERST<P2-Pl,OATAUVARS,R>*3»Pl» M SYMB' t >* 

P2 «• P2 + SKIPCHAR( M %DATACLVARS.R#P2,W3»P2,C); 

IF P2 < J AND CHAR(DATACLVARS.R»P2.W3'P2.C) X ", M THEN GO TO LVERR; 

Pl * P2 + It 

END? 
% FINISH SYMBOL TABLE ENTRY! 
I * STRlNG(tLVN0+l)x2,STL0C); 
VALUCSTL0C3 * I & 1C1H7I13 & ENT CLINK* 



# 



• 






67210000 
67220000 
67230000 
67240000 
67250000 
67260000 
67270000 
67280000 
67290000 
67300000 
67310000 
67320000 
.67310000 
67340000 
67350000 
67360000 

67370000 
67380000 
67390000 
67400000 
67410000 

67420000 
67430000 
67440000 
67450000 
67460000 
67470000 
67480000 
67490000 
67500000 
67510000 
67520000 
67530000 
67540000 
67550000 
67560000 
67570000 
67580000 
67590000 
67600000 
67610000 
67620000 
67630000 
67640000 
67650000 
67660000 
67670000 
67680000 
67690000 
67700000 
67710000 
67720000 
67730000 
67740000 
67750000 
67760000 
67770000 



FOR PI * 5TEP 1 UNTIL LVNO DO 

M0vec2,lvrPl3*6#DATAU.R,<I*2xPl),W3,CI+2xPl),C); 

IF TRACEALL THEN 

BEGIN VALUCSTL0C3.I0USE «. 3; 

I0CSTIOC3 * & 3 CFILNO & 3 CIOUSE & 2 CIOTYPE; 

END; 
SNBLDEFINE *_TRUE; 
60 TO RENVOI? 
TOOMANYt 

SNBLDEFINE * FALSE) 

ME5SaGEIC22*PARAMMAX); 

MESSA6ETTK24#PARAMMAX>; 

go to renvoi; 

PRQTERRt 

SNBLDEFINE * FALSE; 

messagettO(2); 
MESSAGE0(2)J go to renvoi; 
LVERR« 

SNBLDEFINE * FALSE; 

messageocu; 
messagettocd; 

RENVOI! 

end snbldefine; 

x********snbldefine******************************** ************ ********* 

X ******** SN8L IN ************************************* ******************** 
BOOLEAN PROCEDURE snblincst); 

value st; alpha st; 

begin label return* fail* eof, par* nofile, 

oatacomm, inread* look* illegal; 
alpha stn* stv* sio; 
integer size* type* t* unit; 
switch reaosw * 

INREAO* 
LOOK, 

oatacomm; 

STV * valucsti; 

sio * locsn; 

if not boolean(stv.inuse) then 60 to illegal; 

type * sio.iotype; 

UNIT 
X IF 

60 to rea0swctype3; 
60 to illegal; 

X 
OATACOMM! 

BEGIN X INPUT FROM TELETYPEI 

IF NOT DATACOMF THEN 
BEGIN FINDUSERS; 

if not datacomf then go to nofile; 

end; 

IF NOT INPUT THEN GO TO FAIL; 
VALUtSTliLOe * T ♦ IF STV.S Z DCSIZE 

THEN STV.LOC & DCSIZE CONCS X USE OLD STRING 

ELSE STRING<DCSIZE»ST); X NEED BIGGER STRING 
M0VE(DCSlZE»DCREA6i:*J,0*FIRSTCMAR<T>); 
SNBLIN * TRUE) 



• 
• 
• 

€ 

• 
• 



* sio.filno; 

INFORM THEN IF 



UNIT > THEN INFORMI ( 6*UNIT )** 



* 



# 



# 



67780000 
67790000 
67800000 
67810000 
67820000 
67830000 
67840000 
67850000 
67860000 
67870000 
67880000 

67890000 
67900000 
67910000 
67920000 
67930000 
67940000 
67950000 
67960000 
67970000 
67910000 
67990000 
68066000 
68010000 
68020000 
68030000 
68040000 
68030000 
68060000 
68070000 
68080000 
68090000 
68100000 
68110000 
68120000 
68130000 
68140000 
68150000 
68160000 
68170000 
68180000 
68190000 
68200000 
68210000 
68220000 
68230000 
68240000 
68250000 
68260000 
68270000 
68280000 
68290000 
68300000 
68310000 
68320000 
68330000 
68340000 



«• FALSE* 

return; 



BREAK 
60 TO 
END) 
INREAD* 

begin comment input from i0eunit3* 
ioeofcuniT] «, false; 

size «• iosizEtuNin; 

IF L00KFCUNIT3 THEN 

BEGIN UOOKFCUNin * FALSE! 

movecslze#nextrecorocunit#*3*0#8ufferf*3»0); 

end else 

x read next record* 

IF RECORDtUNlT] > THEN 
BEGIN 

READClOFILECUNlTHREC0RDtUNlTnM023#8UFFERt*3)tEOFlPAR3) 
RECORDtUNlT] ♦ -11 

END ELSE 

BEGIN SPACE<IOFILECUNIT3,IOSPACECUNIT3)CEOF*PAR3* 

REABU0FILECUNIT3»1023,BUFFERC*3HE0F!PAR3; 

END! 
VALUEST3.L0C * T * 
IF STV,S < SIZE 

THEN STRING(SIZE#ST) 

ELSE STV.LOC & SIZE CONCS* 
MOVECSIZE#8UFFERC*3#0*FIRSTCHAR(T>>; 
SNBLlN * TRUE* 

go to return; 

END* 
LOOK* 

BEGIN X NON*READING INPUT (LOOK) FROM lOFIlfitUNlTJ J 

SIZE * lOSlZEtUNlT]* 

IF NOT L00KPCUNIT3 THEN 

BFGIN IF RECOR0CUNIT3 i THEN 

READ(IOFILE[UNIT3CRECORDCUNIT3 3#1023#NEXTRECORDCUNIT#*3) 

tE0F*PAR3 ELSE 
BEGIN SPACE(IOFlLEtUNIT3,lOSPACEtUNIT3)CEOF»PAR3; 
REAO(IOFILECuNIT3#1023»NEXTRECORDtUNIT**3)CEOFjPAR3* 
ENO* 
I0E0FCUNIT3 * FALSE* 
L00KFCUNIT3 * TRUE* 
END* 

VALUfSTl.LOC * T ♦ 
IF STV.S < SIZE 

THEN STRING(SIZE#ST) 

ELSE STV.LOC 4 SIZE CONCS* 
MOVECSIZE»NEXTRECORDCUNIT>*3*0,FIRSTCHAR(T)); 
SNBLIN * TRUE* 
GO TO RETURN* 

END* 
PARI 

BEGIN DEFINE DUMMY.** 

WRITE(BUF0UU*3>FPARITY>* 

STN * NAMEtST3* 

M0VE(STRINGL0C(STN)#8UF0UTE*3'32)* 

WRITE<PRINT*F8D* 

WRITEt PRINT, 17, BUF0UTC*3)* 

GO TO FAIL* 



i 

i 
i 
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68350000 CND> 

68360000 ILLEGAL* 

68370000 INF0RMA(5*5T)J 

68380000 DEATH * SYSTEMERROR ♦ INFORM * TRUE; 

68390000 GO TO ENDTERPRET) 

68400000 NOFILEI 

68410000 IF PRINTMESSAGES THEN 

68420000 BEGIN DEFINE DUMMY«#) 

68430000 STN * NAMECST3) 

68440000 WRITE«BUF0UTC*3#FGL0SEDR); 

68450000 M0VE(STN.S#FlRSTCHAR(STN)»BUF0UTC*]#36)i 

68460000 WRITE«PRINT*F8D* 

68470000 wRlTE£PRlNT»17#BUF0UTt*]); 

68480000 END) 

68490000 GO TO FAIL) 

68500000 EOF! 

68510000 I0E0FCUNIT3 * TRUE) 

68520000 FAIL» 

68530000 SNBLIN ♦ FALSE) 

68540000 RETURN! 

68550000 END SNlLlN) 

68560000 %****#***SNBLIN*** *************************************** *************** 

68570000 X**+**#**SN8L0UT************************************ ******************** 

68580000 BOOLEAN PROCEDURE SN8L0UT(ST)) VALUE ST) ALPHA ST) 

68590000 BEGIN 

68600000 LABEL RETURN* FAIL' I0F* PAR* NOFILE* SYSPOT* 

68610000 DATACOMM, IRWRITE* TRACE. ILLEGAL) 

68620000 SWITCH WRITFSW «■ 

68630000 IOWRITE* 

68640000 TRACE* 

68650000 OATACOMM, 

68660000 ILLEGAL* 

68670000 SYSPOT) 

68680000 ALPHA STN* STV* SlO* AA* AB) 

68690000 INTEGER SIZE* TYPE* UNIT* IS* ICH, IR* T* II* 12) 

68700000 % 

68710000 STV * VALUEST1) 

68720000 510 * lOCSTJJ 

68730000 IF NOT BOOLEAN? STV ,QUTUSE> THEN GO TO ILLEGAL) 

68740000 TYPE * SIO.IOTYPE) 

68750000 UNIT * SIO.FILNO) 

68760000 IS * STV.S) 

68770000 ICH + STV.CH) 

68780000 IR * STv.R) 

68790000 % IF INFORM THEN IF UNIT>0 THEN INFORMI ( 1 3, UNIT) ) 

68800000 X 

68810000 60 TO WRITESWCTYPE3 ) 

68820000 60 TO ILLEGAL) 

68830000 % 

68840000 OATACOMMJ 

68850000 BEGIN COMMENT OUTPUT TO DATACOMM UNIT) 

68860000 IF NOT DATACOMF THEN 

68870000 BFGIN FINDUSERS) 

68880000 IF NOT DATACOMF THEN GO TO NOFILE) 

68890000 END) 

68900000 WHILE IS fc 100 DO 

68910000 BEGIN MQVE< 100*DATA [ IR* ICH » W 3 * ICH ,C*DCWRITEC* ]*0 J ) 



i 



f 
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68920000 MVU#ARR0W,7#DCWRITEU23>5); 

68930000 IF NOT OUTPUT THEN 60 TO FAIL; 

68940000 IS * IS • 1001 

68950000 IcH * ICH + lOOj 

68960000 END! 

68970000 IF IS > THEN 

68980000 BEGIN MOVEC IS#DATAE IR, ICH. W3 * ICH ,C*DCWRITE E *3 »0 )) 

68990000 MvU,ARROW#7»D<*WRlTEElS,W3*IS.C); 

69000000 IF NOT OUTPUT THEN GO TO FAlU 

690 J 0000 END) 

69020000 SNBLOUT * TRUE) 

69030000 GO TO RETURN; 

69040000 ENO; 

69050000 IOWRITEJ 

69060000 BEGIN % OUTPUT TO FILE # UNITt 

69070000 I0E0FCUNIT3 * FALSE) 

69090000 T * (I0SlZErUNlT3-l),W + 1J 

69090000 SIZE * I08IZEEUNIT 3 ; 

69i00000 FOR Il«-I0SPACEEUNIT3 STEP -1 UNTIL 1 DO WRITEC IOFlLEEUNlT 3 ); 

69110000 IF IS > SIZE THEN IF 800LEANCSI0 .OVFL 3 THEN 

69120000 BEGIN % WRITE AS MANY FULL RECORDS AS POSSIBLE' 

69130000 MOVEWDSt 1, BLANKS* BUF0UTE*3); 

69140000 00 BEGIN 

69150000 M0VECSIZE«0ATACIRMCH.W3,ICM.C#BUFQUT[*3#0>J 

69160000 IF REC0R0EUHIT3 5 

69170000 THEN WRITEC IOFILE EUNIT3 ERECQRDEUNIT3 3 ,T*BUF0UTE*3 ) E EOF IPAR1 

69180000 ELSE WRITEC IQFlLE£UNlT3 »T»BUFOUTE *3 ) EE0FIPAR3 ; 

69190000 REC0R0CUNIT3 * -i; 

69200000 ICH * ICH * SIZE; 

69210000 is * is - size; 

69220000 ENO UNTIL IS 5 SIZE; 

69230000 ENO ELSE IS * SIZE; 

69240000 CLEARCBUFOUT#T); 

69250000 MOVEC IS»DATAEIR> ICH, W3*ICH.C#BUF0UTE* 3,0); 

69260000 IF RECQR0EUNIT3 Z 

69270000 THEN WRITE C I OF I LEt UNIT 3 EREC0RDEUNIT3 3 * T* BUFOUTE *3 } CE0FIPAR3 

69280000 ELSE WRITEC I0FILEEUNIT3 EN03 »T, BUFOUTE *3 3 CEOF SPAR3J 

69290000 REC8RDCUNIT3 * -1* 

69300000 SNBLOUT * TRUE) 

69310000 GO TO RETURN; 

69320000 END; 

69330000 TRACE! 

69340000 BEGIN DEFINE 0UMM*«#; 

69350000 T * ( IOSlZEr UNIT3"! ) ,W + i; 

69360000 SIZE * I0SIZEEUNIT3 ; 

69370000 STN * NAMECST3; 

69380000 WRITEC IOFlLEEUNlT 3, FBL 3 J 

69390000 II #■ MIN(STN,S,63); % SIZE OF NAME 

69400000 12 «• II + 3 • Ii,E46»23; X SIZE OF FIELD FOR NAME. 

69410000 WRITECBUF0UTE*3#FTRACE#INSTN0*I2); 

69420000 M0VE(I1#FIRSTCHAR(STN),BUF0UTC*3#8); 

69430000 IF SIZE - 12 - 12 > STV.S THEN 

69440000 BEGIN MOVEC STRlNGLOCC STV 3 *BUF0UTE*1> 12+12) ; 

69450000 Mv(lfQU0TE*7*BUF0UTCCll*STV,S+I2+i2),W3#Il»C); 

69460000 WRITECI0FILEEUN1T3ENQ3*T#BUF0UTC*3) EE0FJPAR3; 

69470000 END ELSE 

69480000 begin 
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69490000 
69500000 
69510000 
69520000 
69530000 
69540000 
69550000 

69560000 
69570000 

69580000 
69590000 
69600000 

69610000 
69620000 
69630000 
69640000 
69650000 
69660000 

69670000 
69680000 

69690000 
69700000 
69710000 
69720000 
69730000 
69740000 
69750000 
69760000 

69770000 
69780000 
69790000 
69800000 
69810000 

69820000 
69830000 
69840000 
69850000 

69860000 
69870000 

698^0000 
69890000 

69900000 
69910000 
69920000 
69930000 
69940000 
69950000 
69960000 

69970000 
69980000 

69990000 

70000000 

70010000 

70020000 

70030000 

70040000 

70050000 



MOVECSIZF-I2*l2*FIRSTeHAR(STV)*BUFOUTE*3* 12+12 >) 
WRITE(IOFIlEtU«IT]tN03#T»BUFOUTC*3> CEOFlpARl) 
STV.S * STV.S • SIZE + 12 + 12) 
STV.CH * STV.CH + SIZE • 12 - 12; 
WHILE STV.S i SIZE DO 

BEGIN M0VECSIZE#FIRSTCHARCSTV)#BUF0UTC*3#0>; 

WRITE? IOFIlEt UNIT 3 #FBL>* 

WHlTE(IflFlLCCUNXT3CNQ3#T»BUFOUTC*ntCOFlPARll 

STV.S ♦ STV.S - SIZE) 

STV.CH * STV.CH + SIZE) 

END) 
C|_EAR(BUFOUT*T)) 

M0VE(STV;s#FIRSTCHAR(STV)#BUF0UT[*3#O)I 

mvc1»0u0te*7#buf0utec stv.s ).w3#(stv,s)»c); 
write(I0fiuecunit3#fbl); 

WRITE(IOFILEtUNlT3CN03#T»BUFQUTt*3) t EOF I PAR 3) 

ENO) 
5NBL0UT ♦ TRUE) 
60 TO RETURN) 
END) 
SYSPOTJ 

BEGIN DEFINE DUMMY *#J 

IF STV.S ■ THEN GO TO RETURN) 

AA ♦ CHAR(DATAtSTV,R,STV.W3#STV.C>) 

IF AA * "♦" THEN IOSPACEC33 * ELSE 

IF AA w w w THEN IOSPACEC33 * 1 ELSE 

IF AA ■ "0" THEN IOSPACEC33 ♦ 2 ELSE 

IF AA s "1" THEN 

BEGIN 

WRITE(PRlNTCPA6E3)) 

!OSPACEt33 * It 

END ELSE 
IF AA « »*" THEN X NO SKIP AT END OF PAGE 

BFGIN RECORDC33 * 6) 

IOSPACEC33 * D 

END) 
STN * TEMPCELL) 
AB * STRING(STV»S»1#STN)) 

M0VE(AB.S#FIRSTCHAR(STV3*1#FIRSTCHAR(AB))) 
AA * VALUfPRlNTLOCj) 
AA.LOC * ab; 
VALUCSTN3 * AA) 
I0CSTN3 * I0IPRINTL0C3) 
IF SNBLOUT(STN) THEN 

BFGIN 

I0SPACEC33 * it 

SNBLOUT * TRUE) 

GO TO RETURN) 

END ELSE 

BEGIN 

IOSPACEC33 <■ 1* 

GO TO FAIL) 

END) 
ENO) 
ILLEGAL! 

INF0RMA(5»ST)) 

DEATH * SYSTEMERROR <• INFORM * TRUE) 
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70060000 
70070000 

70080000 
70090000 
70100000 
70110000 
70120000 
70130000 
70140000 

70130000 
70160000 
70170000 
70180000 
70190000 
70200000 

70210000 
70220000 
70230000 
70240000 

70250000 
70260000 
70270000 
70280000 
70290000 
70300000 
70310000 

70320000 
70330000 
70340000 
70350000 
70360000 
70370000 
70380000 
70390000 
70400000 
70410000 
70420000 
70430000 
70440000 
70450000 
70460000 
70470000 
70480000 
70490000 
70500000 
70510000 
70520000 
70530000 
70540000 
70556666 
70560000 
70570000 
70580000 
70590000 
70600000 
70 61 0000 
70620000 



go to endterpret; 

NOFILE? 

IF PRINTMESSA6ES THEN 

BEGIN DEFINE DUMMY*#; 

STN *' NAMECST3J 

WRITECBUF0UTC*3*ECL0SEDW); 

M0VE(STN;s»rXWTCHARCSTN)#BUF0ilTC*5#35)l 

WRITECPRINT,FBU; 

WRITES PRINT, l7,BUF0UTC*]>) 

END! 

GO To FAIU 
PARI 

if printmessages then 
begin define dummy**; 

STN ♦ NAMEESTl; 
WRITECBUF0UTE*3#FPARXTY)J 
M0VEfSTN;S*FlRSTCHARCSTN)#BUF0UTC*3#32); 
WRITE(PRlNT*FBL)i 

writf(print#17#buf0ute*3); 

end; 

go to fail; 

EOFI 

I0E0FCUNIT3 ♦ TRUE; 

FAILS 

SNBLOUT * FALSER 
RETURNI 

END snblouti 

%****##**SNBLOUT************************************************ ******** 
%********STORECHARS***************************************************** 

PROCEDURE storechars(n»loc#ino; 

VALUE H, INCI INTEGER N» INCJ ALPHA LOCI 
BEGIN DEFINE DUMMY **t 
IF PTR + N > 8180 THEN 

BEGIN 

SYNTAXERR(42#0)> 

END ELSE 

BEGIN 

IF N < 63 

THEN MV(N,LOC#lNC>CODECPTR.W],PTR.C) 
ELSE M0VE(N#L0S* INC # CODE CPTR,w3»PTR.O; 

PTR * PTR ♦ NJ 

end; 

END STORECHARSI 
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% made available. 

alpha Procedure string«n#stloo; 

value n# stloci 

integer nj alpha stloc* 



BEGIN LABEL L* £> FAIL* 
INTEGER XI 

IF DPNTRCRW1 ♦ N > 8181 
BEGIN INTEGER JJ J 



THEN 
8181 



n; 



FOR I * STEP 1 UNTIL OATASIZE DO 



n 



• 



• 

41 



70630000 
70640000 
70650000 
70660000 
70670000 
70680000 
70690000 
70700000 
70710000 
707?0000 
70730000 

70740000 
70750000 
70760000 
70770000 
70780000 
70790000 
70800000 
70810000 

70830000 
70830000 
70840000 
70850000 
70860000 
70870000 
70880000 
70890000 
70900000 
70910000 
70920000 
70930000 
70940000 
70950000 
70960000 
70970000 
70980000 
70990000 
71000000 
71010000 
71020000 
71030000 
71040000 
71050000 
71060000 
71070000 

71080000 
71090000 
71100000 
71110000 
71120000 
71130000 

71140000 
71150000 
71160000 
71170000 
71180000 
71190000 



IF 



IF 0PNTREI3 < J AND USEDROWdJ THEN 

BEGIN RW * II J ♦• OPNTRtH END! 
OPNTRfRW] ♦ N 2 8181 THEN 
BEGIN 6ARBAGECQLLECT0R! 



FOR I * STEP 

IF DPNTRHl 

BEGIN RW 

IF OPNTRCRW] ♦ 

BEGIN 

IF N > 8181 
FOR I 
IF 



1 UNTIL DATASIZE DO 

< J AND USEDRQWUJ THEN 

«■ II J +■ DPNTRtll ENDI 

N i 8181 THEN 



THEN GO TO FAIL ELSE 
* STEP 1 UNTIL DATASIZE DO 
NOT USEDROwtH THEN 
BEGIN USEOROWtn * TRUE! 
RW * I! 60 TO It 
END! 
END ELSE GO TO Li 
GO TO FAIL! 
END! 
END! 
L» STL0C*E30»61 ♦ QMARK! 

MV(3#5TL0C»5*DATAtRW*n*DPNTR£RwJ>,W]#I.C)I 
STRING * (1+35 & RW CONOR & N CONCS! 
OPNTRCRWJ * I ♦ N + 3! 
GO TO E! 
FAIL' 

MESSAGEIU2#N)! 

MESSAGETTIU2>N)I 

COMMENT OUT OF SPACE IN 0ATA[*#*3! 

WRITEC PRINT, MESSAGE! 13)! 

DEATH «• TRUE! 

E* 

END STRJNG! 

%*#***#*#STRI NO ****************************************************** 

% * * # * .--... 

PROCE 
BEGIN 



i 
« 

t 

« 

% 
% 

m 
m 



USEDSTU3 DO 

THEN IF STN.LOC > 1 THEN 



%**#*****STRlNGDUMP***************************************************** 
PROCEDURE STRINGOUMP(INSTNO)! VALUE INSTNO! INTEGER INSTNO! 
BEGIN 

INTEGER I# J* T» SN! 
ALPHA STN, STV! 
WRITETIMEC0,0>! 
MESSAGE0(6)! 

IF PRINTMESSAGES THEN MESSAGETT0C6 )! 
FOR I * STEP 1 WHILE I S STRMAX AND 
FOR J «• STEP 1 UNTIL STWMAX DO 
IF <STN+NAMTABLCI#JJ).C1»2J « 
BEGIN 

SN «• MIN(STN,S#63)! 
T * MAX(SN+3-SN,t46l2j,8)I 
STV * VAlTABLCI#J3J 
WRITECBUFOUTt * 3 »FTRACE# INSTNO, T)! 
MOVE(SN,FlRSTCHAR(STN),BUFOuT[*3»8)I 
IF 120 * T > STV,S THEN 

BEGIN M0VE(STV.$#FIRSTCHAR(STV)* 

BUFOUTtT,W3#12*T.C)! 
MVn#QU0TE#7,BUF0UTCCll*STV.S+T+l2).Wj#Il,C>! 
WRlTECPRINT#l7#BUF0UTt*3)! 
END ELSE 
BEGIN 



m 
m 



* 



• 



» 



• 
# 
• 



# 



71200000 
71210000 
71220000 
71230000 
71240000 
71250000 
71260000 

71270000 
71280000 

71290000 
71300000 

71310000 
71320000 
71330000 
71340000 
71350000 
71360000 
71370000 
71380000 
71390000 
71400000 
71410000 
71420000 
71430000 

71440000 
71450000 
71460000 
71470000 
71480000 
71490000 
71500000 
71510000 
71520000 
71530000 
7 1 540000 
71550000 
71560000 
71570000 
71580000 
71590000 
71600000 
71610000 
71620000 
71630000 
71640000 
71650000 

71660000 
71670000 
71680000 
71690000 
71700000 
71710000 
71720000 
71730000 
71740000 
71750000 
71760000 



MOVE(120-T,FIRSTCHAR(STV)» 
BUF"QUTC*J,i2 + T); 

WRlTE(PRINT#17#8UF0UTt*J); 
STV.S * STV.S • 120 ♦ TJ 
STV.CH ♦ STV.CH + 120 - T; 
WHILE STV,S > 132 DO 

BEGIN M0VE(132'FIRSTCHAR(STV)» 

BUFQUTE*J*0)J 
WRITECPRINT#17*BUF0UT£*3); 

STV.S * STV.S»132J 
STV.CH ♦ STV.CH ♦ 132j 

end; 
clear(8uf0ut*17); 

M0VECStV.S#FIRSTCHAR(STV)#BUFOUT[*3#O); 
MVCl»0U0TE#7fBUF0UTt( STV.S ),W3*(STV,S).C>; 

wsite(print*17#buf0ute*3); 
end; 
end; 
message0c7); 

for i * step 1 while i s strmax and usedstci3 do 
for j * step 1 until stwmax do 

if cstn * namtablei#j3).c1*2] = 3 then 

BEGIN SN * MiN(STN,S>63>; 

T «• MAX(SN*3-SN, C46«23#8); 

II «• VALTABLtI*J3,LlNK; 

WRITE(BUF0UTC*3»FTRACEL'T*DI6ITS(I1)#I1)? 

MV(SN,FIRSTCHARCSTN>>BUF0UTC*3,3>; 

write(printm7*buf0utc*3); 

end; 
writetime(0*0>; 
end stringdump; 

X********STRIN6DUMP*************************************** ************** 

X********SYNTAx£RR********* ********************************************* 

PROCEDURE SYNTAXERR<N»P); VALUE N,P; INTEGER N#PJ 

BEGIN 

DEFINE DUMMY ■: #J 

p * p mod fielosize; 

IF P > THEN 
BEGIN 

CLEAR(BUF0UT#17); 

M0VE(l*QMARK#7*BUE0UTCP t w3#P.C*-8}; 
WRITE(PRINT*l7»8UF0UTt*3); 

end; 
write(print»messageen3); 
ptr * marker ♦ et 

ST0RECHARS(1# W X W #7); 
MESSAGES «- MESSAGES ♦ D 
ERRORS ♦ ERRORS ♦ \t 

End syntaxerr; 

x********syntaxerr*********************************** 
x********tempcfl*********************** ************** 

* tempcell produces a temporary cell in the symbol table, 
x this cell can generally be assumed to be gone after the end of an 

* instruction, (this is actually not always true' but it is rather 

* difficult to predict when a cell will stay around longer*) see also 
x the procedure newcell for getting permanent cells, 
alpha Procedure tempcell; 



• 
« 



• 

€ 

• 
• 



• 



******************** 
******************* 



• 
# 






71770000 
71710000 
71790000 
71800000 
71810000 

71820000 
71830000 

71840000 
71850000 
71860000 
71870000 
71880000 
71890000 
71900000 
71910000 
71920000 
71930000 
71940000 
719300.00 
71960000 
71970000 
71980000 
71990000 
72000000 
72010000 
72020000 
72030000 
72040000 
72050000 
72060000 
72070000 
72080000 
72090000 
72100000 
72U0000 
72120000 
72130000 
72140000 
72150000 
72160000 
72170000 
72140000 
72190000 
72200000 
72210000 
72220000 
72230000 
72240000 
72250000 
72260000 

72270000 
72280000 
72290000 
72300000 
72310000 
72320000 
72330000 



BEGIN INTEGER ST# I» j; 
LABEL FAIL* RETURN; 
DEFINE R0W*TEMPRQW#J 
X 

* IF INFORM THEN INFORMI ( 7*R0W )i 

ST * NEXTCELLCROWJ; 
IF ST * THEN 

BEGIN 

FOR ROW * STEP 1 WHILE ST * DO 
IF ROW > 15 THEN GO TO FAIL ELSE 
IF USE0STCR0W3 

THFN ST «• NEXTCELLCROWl 
ELSE BEGIN NEWSTROWCROW 31 
ST * & ROW CONCSTR* 
END) 

row * row - .1/ * the "step" was executed one time too many, 
end; 
nextcellcrowj * namecst3 ,link; 

IF <I«.T(rMFLlSTtROW]) * THEN 
BEGIN TEMPLISTCRQW3 * ST; 
NAMECST1 * 4 ST CLINK! 

. END ELSE 

BEGIN J * NAMEU1.LINK; 

NAMEtn.LlNK * STi 

namecstj «• o & J clink; 

end; 
valuestj * o; 
Tempcell *■ st; 

x if u5edcellcr0w] < st then usedcellcro* 3 «• st; 
go to return; 

FAIL* 

MESSAGE0C14); 

MESSAGETT0C145; 

WRtTEfPRlNT,MESSAGEti3j; 

DEATH «■ TRUE; 
RETURNf 

% if inform then infqrmia<q,rqw,st } ) 
end tempcel; 

X********TEMPCFL** ********************************* ********************* 
X********TE MP VAL************************************************ ******** 

* TEMPVAL PRODUCES A TEMPORARY SYM8 TABLE CELL WHOSE VALUE IS THE 



c 

€ 
« 



% tempval produces a temporary 
x string representation of the 
alpha procedure tempvalu); 
i; integer i> 
alpha array numcouu 
aa# ab; integer j; 



SYM8 TABLE 
INTEGER I. 



VALUE 

BEGIN 

ALPHA 

X 

WRITE{NijMC*3*FIl6#I>; 

J * 16 - SKIPCHARC" %NUM£03#0); 

TEMPVAL * AA «• TEMPCELL; 

AB * STRING(J#AA>; 

MV<J#NUM[0],16-J*DATACAB,R#AB.W3»AB,C); 

VALTABLCAA.STR*AA.STW3 * AB; 

END TEMPVAL; 

X********TEMPVAL******************************************************** 

X********TRACEFCTCALL*************************************************** 
Rnm fam DDncrnnDr TBicrrrrrAi i tett 



BOOLEAN PROCEDURE TRACEFCTCALL< F ); 



* * 



• 



• 
• 

# 



72340000 
72330000 
72360000 
72370000 
72380000 
72390000 
72000000 

72410000 
72420000 
72430000 
72440000 
72450000 
72460000 
72470060 

72480000 
72490000 
72500000 
72510000 

72520000 
72530000 

72540000 
72550000 
72560000 
72570000 
72580000 
72590000 
72600000 
72610000 
72620000 
72630000 
72640000 
72650000 
72660000 
72670000 
72680000 
72690000 
72700000 
72710000 
72720000 
72730000 
72740000 
72750000 
72760000 

72770000 
72780000 
72790000 
72800000 
72810000 

72820000 
72830000 

72840000 
72850000 
72860000 
72870000 
72890000 
72890000 
72900000 



IF SP < MKS 

FOR I *• MKS 
BEGIN % 
IF P*P+1 



VALUE FJ 

INTEGER n % SYMBOL TABLE LOC OF FUNCTION 
BEGIN 

LABEL FAIL* FIN; 
ALPHA FCTN* FIQ* PVi 
INTEGER I* J* SIZE* P> PS* PC* PR* 

OEFINE WRITERECORO * IF WRITEBUFF CBUFQUT*P* SIZE ) THEN 60 TO FAIL ** 
% 

FCTN * NAMEEF3; 
FIO * I0[F3J 

IF FIO.IOTYPE m 2 THEN % OUTPUT TO FILEt 
BEGIN 

UNIT «• FlO f FILNO* 
SIZE «• I0SIZECUNIT3; 
I «• MIN(63*FCTN,S); 

WRITE(BUF0UTC*3*FTRACEFCTCALL»INSTN0*I); 
MV(I»FIRSTCHAR(FCTN)*BUFOUTC*3*8); 
P * I + 8; 

THEN P * P + 1 ELSE 
STEP 1 WHILE I < SP DO 
MOVE PARAM INTO BUFOUTt*!* 
. i SIZE THEN WRITERECORO* 
MVU*QU0TE*7*8UF0UTCP.W]*P,C>* 

P * P ♦ 1* 

PV * VALUfPSTtm; 

pr * pv.r; 

PS * PV.S* 

PC <• PV.CHI 

WHILE PS+P £ SIZE DO 

BEGIN X MOVE IN PART OF PARAM, AND WRITE? 
IF P < SIZE THEN 
BEGIN 
MOVE(SIZE-P»OATACPR#PC,W3*PCtC»8UFOUTCP.W3»P.C)* 

ts * ps » size * p; 

pc * pc ♦ size - p; 

end; 
writerecoro* 

end; 
movecps*oata[fr*pc,w3*pc.c*bufoutcp.w3*p,c>; 
p * p ♦ ps; 

IF P+l > SIZE THEN WRITERECORO; 
MVCt*QUOTE»7»BUFOUTCP,W3*P f C); 

if (p*p«h)*1 2 size then writerecord; 

mvc1*c0mma*7*buf0utcp,w3*p,c); 

end; 
% change last "** to ")«« 
aa * H ) w ; 

MV(l,AA*7*BUFOUTEP,W3*P,C); 

writerecoro; 
tracefctcall ♦ true; 

go to fin; 

end file output else 
3! call tracing functions 
; * not yet implemented, 

FAIL« 

TRACEFCTCALL * FALSE; 

fin: 



i 
€ 
i 
i 
« 



t 

i 
t 

« 



€ 



• 

• 



• 



72910000 
72920000 
72930000 
72940000 
72950000 
72960000 
72970000 
72980000 
72990000 
73000000 
73010000 
73020000 
73030000 
73040000 
73050000 
7 3060000 
73070000 
73080000 
73090500 
73100000 
73110000 
73120000 

73130000 
73140000 

73150000 
73160000 
73170000 
73J80000 
73190000 
73200000 
73210000 
73220000 
73230000 
73240000 
73250000 
73260000 
73270000 
73280000 
73290000 
73300000 
73310000 

73320000 
73330000 
73340000 
73350000 
73360000 
73370000 
73380000 
73390000 
73400000 
73410000 
73420000 
73430000 
73440000 
73450000 
73460000 
73470000 



END TRACEFCTCALU 

X********TRASEFCTCALl ***************************************** ********** 
%****** **TRACEFCT RE TURN ************** *********************************** 
B001EAM PROCEDURE TRACEFCTRETURNCF* SUC ) J 
VALUE F.# SUC* 

SYMBOL TABLE LOC OF FUNCTION 
% TRUE IF SUCCEEDED, 



n % 

SUCf 



size; 
writebuff(bufdut»p#size) then go to fail *j 



X OUTPUT TO FILE 



INTEGER 
BOOLEAN 
BEGIN 

label fail* f *n> fautj 
integer i* p* sv* cv' rv* 
alpha fctn* fioj 
define writerecoro « if 

X 

FCTN * NAMECF3I 

FIO * TOtFlJ 

IF FIO.IOTYPE » 2 THEN 

BEGIN 

UNIT * FIO.FILNO; 

SIZE * I0SIZECUNIT3; 

I * MlN(63,FCTN*S)J 

WRITE(BUF0UTt*3i»FTRACEFCTRET*lNSTN0*I)l 

MV(I*FIRSTCHARCFCTN)*BUFOUTE*3#8>; 

p «• i ♦ Bi 

WRITp(I0FILEtUNIT3#FBL) CFAIL»FAIL3; 
IF SUC THEN 

BEGIN X WRITE OUT VALUE' 

P * p ■♦ 6J 

AA <• VALUCPSTCMKS33; * * VALUE, 

sv «■ aa.s; 

cv * aa,ch; 

RV *■ AA.Rj 

WHILE SV+P £ SIZE DO 

BEGIN 

M0VE(SIZE*P'DATA[RV»CV.W],CV,C*BUF0UTEP,W3»P.C)J 

CV * CV ♦ SIZE " Pi 

sv * sv - size + p; 

WRITERECORD* 

EN01 
IF SV > THEN 

M0VE(SV#DATACRV#CV.W3#CV.C»BUF0UHP.W3>P,C)J 
IF P*p*SV < SIZE THEN % ROOM FOR QUOTE 

BEGIN MV<l#QUOTE»7#BUFOUTCPtW3#P,C)J 

WRlTE(lOFlLECUNlT3tN03*1023»BUFOUTt*3) CFAIL«FAIL3* 

end else 

x put quote on next line! 

BEGIN WRITE* IQFlLEEUNlT3,t023#BUFOUTC*3>EFAlL* PAIL 3) 

MVf 1>QU0TE»7,BUF0UTC*3»0>; 

MVf7#BLANKS#0#BUFOUTC*3#l)l 

WRITE? lOFIl»ECUNlT3CN03#l*BUFOUTt*3)tFAlL:FAIL 31 

END) 
END SUCCESS CASE ELSE 
X WRITE "FAILED, -I 
8E6IN AA * "FAILED."; 
MV(7#AAM»BUF0UT[P.W],P,C + 3>! 
WRlTE(IOFILECUNlT3tN03M023#BUFOUTC*3)[FAILIFAlL3; 

end; 
tracefctreturn «• true; 






m 



m 

m 
m 



» * 



• 



• 



73480000 
73490000 
73500000 
73510000 
73520000 
73530000 
73540000 
73550000 
73560000 
73570000 
7 3580000 
73590000 
73600000 
73610000 
73620000 
73630000 
73640000 
73650000 
73660000 
73670000 
73680000 
73690000 
73700000 
73710000 
73720000 
73730000 
73740000 
73750000 
7 3760000 
73770000 
73780000 
73790000 
73800000 
73810000 
73820000 
73830000 
73840000 
73850000 
73860000 
73870000 
73880000 
73890000 
73900000 
73910000 
73920000 
73930000 
73940000 
73950000 
73960000 
73970000 

73980000 
73990000 
74000000 
74010000 
74020000 
74030000 
74040000 



go to fin; 

end file output else 

% call tracing function* 

; % NOT YET IMPLEMENTED. 
FAUTI 
FAIL! 

TRAfeEFCTRETURN * FALSE; 
FINI 




* IF THE TELETYPE ISNT ATTACHED* 
INTEGER PROCEDURE TTlNDEXCST)) 
VALUE ST1 

alpha st; 

begin la8el fail* fin; 

integer ba* tu, i* j* k* n* ir» ic; 

finousers; 

st * valucsti; 

ir * st^r; ic * st.chj 

TU * 8A ♦■ 01 

n * st.s; 
I * s 

IF I 



FOR J 
IF 



IF TU 

FOR J 
IF 



t.s; 

cancharc"/"#6mark#datacir#lc t wj#ic.c>j 

> n or cmar<dataur*ic.w3*ic,c + i> * v" then go to fail* 

* STEP 1 WHILE J < I nn 



* 

K t 

THEN 

ELSE 



STEP 1 WHILE J < I DO 
CHAR(0ATACIR»IC.W3#IC.C+J) 

GO TO FAIL 

TU * TUxlO *. K; 

* OR TU > 15 THEN GO TO FAIL; 

* 1+1 STEP 1 WHILE J < N 00 
K <• CHARe0ATAClR»IC,W3*IC.C + J) > 

then go to fail 

ELSE 8A * BAxiO ♦ K; 
IF BA > 15 THEN GO TO FAIL; 
BA * BA « TUC39t44»43; 
I * •*{} 

FOR J * STEP 1 WHILE J 
IF BA 



> 9 



m 

m 



IF 



I > 

BEGIN 
GO TO 

end; 

PAIL* 

TTINoEX 
FIN! 
END TTINOEX; 



STATCJ3.£9«93 
THEN 
TTINOEX * 11 

fin; 



< NUMUSERS AND 
THEN I ■*• j; 



I < 00 



♦ -i; 



6.«U I I J.1MUC** 

X********TTlNDFX******************************************************** 

X**#*****WRjTEBuFF****************************************************** 

BOOLEAN PROCEDURE WRITEBUFF C8UF0UT*P* SIZE ) ; 
VAIUF S17EJ 



boolean procedure 

value size; 

integer p* size; 

array buf0utc03; 
begin label fail* fin; 

WRITEaOFILECUNimFBL); 





• 



€1 



m 



m 
m 



X TRUE IF OUTPUT FAILS 



******************************************** 
******************************************** 
t 



ALUE II INTEGER I J 
AY BUFFERCO:U]J 



74050000 WRlTECIOFILEtUNIT3tNOj,1023,BUFOUTt*3) tfAILIFAlLSI 
7ft060000 P * Oj 

74070000 CLEAR(BUF0UT*SIZE,W)) 

74080000 WRITEBUFF * FALSE! 

74090000 GO TO FJNI 

74100000 FAIL* 

74110000 WRITEBUFF * TRUE* 

74120000 FIN: 

74130000 END WRITEBUFF; 

74140000 X********WRITEBUFF* ********* 

74150000 X********WR I TED ATA ********** 

741*0000 X DUMP OF PROGRAM/DATA AREAS 

74170000 PROCEDURE WRlTEDATAJ 

74180000 BEGIN INTEGER i; 

74190000 PROCEDURE WRlTEDATAROWC I ) ; V 

74200000 BEGIN INTEGER Jl INTEGER ARR 

74210000 J ♦ o; 

74220000 WRITEC9uFFERt*3*MESSAGEC37 3* 

74230000 M0VEa00*DATAU#*3>0>BUFFERt 
742«0000 MOVE (4t BLANKS* 0, SUFFER t 143*4 

74250000 WR I TECPRI NT* MESSAGES 363 >J 
74260000 WRITECPR INT»15* BUFFERS *3); 
74270000 FILL BUFFERt*3 WITH " 
74280000 FOR J * J ♦ 100 WHILE J < 80 
74290000 BEGIN M0vE( 100* DATAtl* J .W 
74300000 WRITE(PRINT*15#BUFFERC*3) 
74310000 ENDI 

74 320000 M0VEC84*DATAU»1012 3*4*BUFFE 
74330000 FOR J «• 100,108 DO M0vE(8*BL 
74 340000 WRITE(PRINT,15*BUFFERC*3)J 
74350000 WR I TEC PR I NT* MESSAGE C 36 3); 
74360000 END WRlTEDATAROWl 
74370000 WRITETIMECO*®)! 
74380000 WRITECPRINT CPAGE3); 
74390000 FOR I * STEP 1 UNTIL 31 00 
74400000 BEGIN WRITE{PRINT*MESSAGE 
74410000 IF USEDR0WCI3 THEN WRITED 

74420000 END; 

74430000 WRITETIME(0,®)J 

74440000 END WRITEDATA1 

74450000 f********WRlTEnATA********** 

74460000 X********WRITEINST********** 

74.470000 X WRITEINST PRINTS OUT THE C 

74480000 X BY THE COMPILES. 

74490000 PROCEDURE WRITEINST*" 

745Q0000 BEGIN DEFINE DUMMY»JU 

74510000 CLEARfBuF0UT*17); 

74520000 MOVE (MIN(PTR*MARKER* 132)* COD 

74530000 WRlTEcPRINT,17*8UFOUTt*3)l 

74540000 END WRITEINST; 

74550000 X* ******* WRITE INST* ********* 

74560000 X********WriTeST************ 

74570000 X SYMBOL TABLE DUMP ROUTINE I 

74580000 PROCEDURE WRITESTI 

74590000 BEGIN 

74600000 FORMAT F( X5» A2» XI » 14* « * w *2 

74610000 !«*" M )*A2*X12*I1*X 



• 

• 



1)1 

*3*i6); 
); 



84 DO 
3*J.C*BUFFERC*3»16); 

; 

R[*3M6); 
ANKS*0*8UFFERtJ.W3*J,C); 



C353*I*USE0R0WCI3*I*DPNTRU3); 

atarowcd; 



t * * ***************** 



***************** ********! 

******************************************** 
ODE THAT HAS BEEN PRODUCED SO FAR 



ECMARKER,W3*MARKER,C*BUFQUn*3»0); 



******************************************** 
******************************************** 



(4I1#X1*I2*X1M3*X1»I4*XI#I2*XI* 
4»I3»X3*I3*X4*L1*X4*I2)* 



# ■«*• 



* ' *t 



# 



• 



• 



74620000 
74630000 
74640000 
74650000 
74660000 
74670000 
74680000 

74690000 
74700000 
747i0000 
74720000 
74730000 
74740000 
74750000 
74760000 
74770000 
74780000 
74790000 
74800000 
74810000 
74820000 
74830000 
74840000 
74850000 
74860000 
74870000 
74880000 
74890000 
74900000 
74910000 

74920000 
74930000 
74940000 
74950000 
74960000 
74970000 
74980000 
74990000 
75000000 
75010000 
75020000 
75030000 
75040000 
75050000 
75060000 
75070000 
75080000 
75090000 
7510.0000 
75110000 
75120000 
75130000 
75140000 
75150000 
75160000 
75170000 
75180000 



Fl<7 

F2C H 
INTEGER 

ALPHA L 
WRITECP 
WRITETI 

FOR I «* 

BEG! 
WRIT 
WRIT 

FOR 
W 



( w * M )*X10» M NAMTABir%I2#"»*3*j>X16#"VALTA8U' 
lOUSE FILNO CYCLE OVFL IOTYPE")* 
NEXTCELLC%I2*'*3 = ">A2* w ; TEMPI iSTt "» X2# w J 
I» J* k; 



»*I2#"#*3"*X27* 
= "*A2)J 



i 

RINTCIDI 
MECO,0)J 

STEP 1 

N 



UNTIL STRMAX 00 IF USEDSTU3 THEN 



F(FRlNT»F2#I*NEXTCELLCn#I*TEMPLlSTCI]>; 
E(PRINT»F1#I#I)J 
K «• STEP 1 UNTIL STWMAX 00 
RITE(PR!NT*F*(KU CONCSTR )>K,FOR L «• 
NAMTA8Ln»K3,VALTABLCI#K3 DO 

EL.tHU* 
L.C2H3* 
L.t3tl3* 
L,C4*13* 
L;C5I43* 
L^C9I83> 

L.S* 
L.R* 
L.CH3* 
(K4I CONCSTR)* 

FOR L «■ I0TABLtI»K3 00 
CLllOUSE* 
L,FILN0# 
L. CYCLE* 

L.OVFL* 
L.IQTYPE3); 



• 

m 



* 



ENOJ 
WRITETI 
END WRI 



MECO#l 
TEST* 



)1 



%**** 

X WRI 
X TO 
PROCE 
VALUE 
INTEG 
BEGIN 
WRITE 
FOR I 
WR 



****WRfTEST************************************ 



******************** 
******************** 



END W 
X**** 
X**** 
X F I 



■»»»nni iiji" " - - « » - - - 

****WRjTESTACK********* ************************** *********** 
TESTACK(N) PRINTS OUT THE CONTENTS Op THE STACK* FROM WORD 
WORD N. N SHOULD BE < STACKSIZE, 

dure writfstackcn)' 

nj 

ER Hi 

INTEGER Ti 

(print*fstackhead)i 
* step 1 until n 00 
itecprint,fstackentry* 

I* 

PTYPEtH* 

PSTU3* 

PNAMEU3* 

PL0CEl3 f S# PL0CCI3.R* PL0CU3.CH, 

PSIZEEI3* 

PP0INTCI3* 

PMlNLEFTri3» 

PBACKCI33J 
RITESTACKI 

****WRlTESTACK***************************************************** 
****WRJTETIME****************************************************** 
S NO LONGER IN USE HERE. 



# 
• 



75J90000 
73200000 
75210000 
75220000 
75230000 
75240000 
75250000 
75260000 
75270000 
752^0000 
75290000 
75300000 
75310000 
75320000 
75330000 
75340000 
75330000 
75360000 

75370000 
75380000 
75390000 
75400000 
75410000 
75420000 
75430000 
75440000 
75450000 
75460000 
75470000 
75480000 
75490000 
75500000 
75510000 
75520000 
75530000 
75540000 
75550000 
75560000 
75570000 
75580000 
75590000 
75600000 
75610000 
75620000 
75630000 
75640000 
75650000 
75660000 
75670000 
75680000 
75690000 
75700000 
75710000 
75720000 
75730000 
75740000 
75750000 



procedure writetime(f,n); value f,nj integer f$h> 
begin rem t* tsj 
integer th* tmj 
t. ♦.. time a > / 6o; 

TH * ENTIER(T / 3600)1 

TM * ENTIER(CT - TH x 3600) / 60); 

TS * T » TH x 3600 » TM x 60; 

IF N $ THEN 

WRlTFCPRlNT,FTlMEC0 3,TlMEC2)/60,TIME(3)/60) ELSE 
IF N S 1 THEN 

BEGIN ALPHA D* M* Y* X> ALPHA ARRAY MM[1U2J) 

X * DATE; 

M * X,[l»53 x 10 ♦ X,[6I63; 

D * X • 1 18*63 x 10 + X.C24I61; 

Y * X, E36H23; 

FILL MME*3 WITH 

M JAN M , M FEB"* M MAR W *"APR M * M MAY ,, *"JUN"* 
W JUL M » M AUG M # M SEP , '# "OCT'S M NOV , % "DEC"; 

WRITF<PRlNT*FTIMEd 3 .VERSION* DIGITS(D>»D*MMCM3*Y,TH»TM*TS>; 

END ELSE 
IF N < 3 THEN 

WRITF(PRTNT,FTIMECN3*TH*TM,TS) else 
IF N < 5 THEN 

writff print. ftimein 3 * th*tm*ts* digits (level)* level' 

digits(instno)mnstno); 
writetime; 



i 



end writetime; 

x********wrttetime**** *************** **************** 

X************************* *************************** 

V mm fie DDncrniiBr nd>l aDattOmc 



******************** 

******************* 



* 

• 
• 



% END OF PROCEDURE 
BEGIN COMMENT INIT 
ALPHA ARRAY USERSt 
X 

X B5500 CHARACTER 
* 1 2 
% # s QMARK 
X D E F 

% < * - K 

x e r $ 

X S T U 
X . .. t * 3 

X 

FILL C0NVERTVALt*3 
*» C w * •* 1* , * W 2 W » ,, 3 M 



declarations 
ialization; 
ohu; 



SET» 
3 
I 
G 

J 

* 

V 



4 
> 

H 
K 



5 

i 

L 
) 
X 



6 

+ 

* 
M 

; 

Y 



7 
A 
I 
N 
< 
Z 



8 
B 
& 

BLANK 
* 



9 

C 

c 
p 

/ 

X 



m 



WITH 

* W X"* M [ ♦♦,M<f»,»f a« t «B"» n C"> 

* w H M * " I * * " . » » " ) * * » ♦ » * •» S M , 

* M K"* M L f, * N M"*"N w *wQ»', M P w * 
,»<*», 12, 12* ">"*" M *"/"* 
h s", « T W * M U W * ,, V ,, *"W M * ,, X"*''Y M * , •Z ,, * w * "*»<"* 

"3"#i2* is* w & w ; 



W D W * M E W * M F M # M G M 

12* «; w »i2* w J« 

, ♦(3 W ,♦♦R W , , '$ , *,"* ,, 



m 



X 
X 

FILL CHARTYPEC*3 W 

3* 3* 3* 3* 

0* 0» 13* 9* 

3* 3* 3* 3* 

0* 2* 10* 3* 

3* 3* 8* 7* 



ITH 












3* 


3* 


3* 


3' 


3* 


3' 


0* 


0' 


10* 


3' 


3* 


3' 


3* 


3* 


3# 


0# 


0# 


5* 


3* 


3* 


3* 


3' 


3* 


3» 


10, 


6, 


14, 


0* 


X* 


12* 



*» '♦ 






•* f* ♦ 



» '■• •- 



* •* *. 






75760000 
75770000 
75780000 
75790000 
75800000 
75810000 
75830000 
75830000 
75840000 
75850000 
75860000 

75870000 
75880000 
75890000 
75900000 
75910000 

75920000 
75930000 
75940000 
75950000 
75960000 
75970000 
75980000 
75990000 
76000000 
76010000 
76030000 

76030000 
76040000 
76050000 
76060000 
76070000 
76080000 
76090000 
76100000 
76110000 
76120000 
76130000 
76140000 
76150000 
76160000 
76170000 
76180000 
76190000 
76200000 
76210000 
76220000 
76230000 
76240000 
76250000 
76260000 
76270000 
76280000 
76290000 
76300000 
76310000 
76320000 



3, 

0, 



3* 

2* 



3* 

0, 



3* 
4; 



3, 3* 3, 3# 11, 0* 



FILL DOTTYPEC*] WITH 
0, 0, 0, 0* 0* 



0, 
0» 
0* 
0, 
3* 
0, 



Or 
Of 
Of 
0, 
Of 
Of 



Of 

9' 

2' 

0, 
0* 
0, 



0» 
Ot 
0* 
2' 

Of 
01 



0* 
0* 
0* 
2* 
0* 



Of 
Of 
Of 
Of 
0, 
0* 



0* 
2* 

Of 
Of 

Of 
Of 



0» 
0* 

0' 

1' 

0* 
0' 



0* 
0* 
0, 
Of 

Of 
Of 



0* 
0* 
0» 
0* 
2* 
Of 



i 
4 
i 



VALUES FOR DQTTYPE« 
ERROR 

3 is... 



FILL 0PLEVELC*3 WITH 



Of 
Of 
Of 
Of 
0, 
Ot 
Of 



0, 

0, 

0, 
0, 
0, 
0, 
0, 



0* 
0, 
0, 
3, 

0* 
Of 
Of 



Of 
Of 
Of 
Ot 
4* 
Of 
01 



0, 
0* 
0, 
0* 
2* 
0, 



0/ 
0* 
Of 
Of 
Of 
0$ 



Of 

1' 

0* 
Of 
Of 
Of 



Of Of Of 

Of Of Of 

Ot Of 0* 

0* 0* Ot 

Of Ot 3, 

0* Ot o t 



m 

€ 



FILL W0RDSC*3 WITH 

w UNANCHOR M > M OUNDUMP 

"FORMSlLF","NCENOFRE 

"SAVERELE","ASEPURGE 

"RUNCATEO","VERFLQwQ 

"UNCHL00K%*SYSPQTCA 
FILL MMEM0NICC0**3 WITH 

6, 

"ON", "TO", "BY", "AT", "IN", "OFF" J 
FILL MNEM0NlCtl,*3 WlTH 
. 2* ' ■■■ 

"FROM", "TO"* 
FILL C0NTR0LCARDC*1 WITH Ot 

"DEBUG", 

"PCG", 

"LIST"* 

"UNLlST", 

"PUNCH", 

"EJECT", 

"SPACE", 

"WIDTH"* 

"26", 

"3600", 

"B5500", 

"DEFINE", 

"WAIT", 

"LIMIT", 

"SIZE", 

"SET", 

"LIBRARY", 

"LOAD", 

"COMPILE", 



m *"INTEQERT","RUNCATIO","NDISK IN", 

"#"TURNOATA","COMlORUL","ESPROCES", 
","TELETYPE","DEBUGRUN",«ERROUMPT", 
"*"UOTE0MAR","KARROWRE","AOPRINTP", 
","RDNEWOlS","K "; 



m 





m 



76330000 "INFORM", 
76340000 "SILENCE") 



« 



$ 76350000 FILL INTRINSFCTC 3* *3 WITH 

76360000 8*".EQ w *",NE"* w tLT"*"»LE"*"«GT"*«,GE"*"PQP"*"E0F") 

76370000 FILL INTRINSNDXC3**3 WITH 
$ 76380000 9* 21* 19* 16* 15* 14* 25* 81 # 

76390000 FILL INTRIN5FCTE4,*3 WITH 
76400000 17* 

# 76410000 ".NUM","PUSh"*"PAGE"* ,, SIZE**"MODE w * € 
._ - 76420000 "DUMP","0AT£ W *"TRIM"*"TIME"* 

76430000 "FILe w *"LOOK"*"WAIT"*"FILL"*"USER m * 
76440000 "SEEK"*"C@PY") % 

76450000 FILL INTRINSN0XC4* *3 WITH 
76460000 22* 26* 2«> 30* 20* 7* 4* 36* 32* 

# 76470000 12, 18* 39* 13* 42* 43* 48; $ 

76480000 FILL INTRINSFCTE5**3 WITH 

76490000 10* 
$ 76500000 "SPACE M *"UNEQL"*"TRACE H »"CLOSE"*"RULES"* % 

76510000 "LEVFL m *"OPSYN"*«CALLF w *",RANF"*«CLEAR"; 
76520000 FILL INtRIN$NDXE5, *3 WITH 

# 76530000 31* 38, 46, 3* 29* l7, 23* 2, 50, 5jj % 

76540000 FILL INTRINSFCTE6, *3 WITH 

76550000 14* 
% 76560000 ",REMDR","ANCHOR"*"UNANCH", "EQUALS", "DEFINE", % 

76570000 "DETACH", "TRACEF"*"REWIND"*"TRACEL"*"STATUS", 
76580000 "TRACES", "RECORD"*"ASSIGN", "SEARCH"; 

# 76590000 FILL INTRINSN0XE6* *3 WITH % 

76600000 27* i* 37* 10* 5* 6, 34* 28* 35* 41* 

76610000 33* 45* 4f* 49J 

# 76620000 FILL INTRlNSFCT t 7**3 WITH # 

76630000 4*"EXECUTE"*"C0MPILE"*"SUSPEND", "RELEASE") 

76640000 FILL INTRINSNDXC7* * 3 WITH 

# 76650000 11, 0* 40* 44) # 
76660000 FILL M0NTHSc*3 WITH 3l ,28, 31 * 30, 31, 30,31* 31 * 30* 31* 30* 31 ; 

76670000 IF ( (TEMP*TIME< > ) . C24 *63 ♦ TEMP.E18«63 * 10) MOD 4*0 THEN 

# 76680000 MQNTMSC23 * 29) • 

76690000 % 

76700000 % 
76710000 % # 

76720000 RANONO * 8388607) X INITIALIZE RANDOM NUMBER GENERATOR 

76730000 CRLF * "£*«-") 

# 76740000 ARROW «■ "«■") SLASH * "/") # 
76750000 EQSlGN * "*") 

76760000 QMARK «• 12) QUOTE «• """) BLANK «■ " ") COLON * "*") 

# 76770000 STAR * "*") COMMA * M »") 
76780000 STOPPER * QUOTE & QMARKE 36 * 42* 63 & BLANKE 30 i 42* 63 ) 

76790000 BLANKS ♦ " ") MOvE( 4, BLANKS, 4*8LANKS*0 )) 

# 76800000 TEENYNE6 * REALCNOT FALSE)) 

76810050 ANCHORMODE «• 2) 
76820000 TRACEALL * BOOLEANC COMMON , C47 J 1] ) ) 

# 76830000 DUMPALL * 800LFANCCQMM0N » [46* 1 3 )) 
76840000 SYSTEMOEBUGGING * BQQLEANCCOMMON . E 45 * 1 3 )) 

76850000 USEDR0WC03 ♦ TRUE) 

# 76860000 EXECUTE «• TRUE) 

76870000 FIELOSIZE ♦ 72; 

76880000 WAITTIMf * 18000) X 5 MINUTES 

# 76890000 FINDUSERS) % LOCATE ATTACHED TELETYPES 



-* » m- 



-H »■• «, 



• 4 



» %-.. 



• 

• 



• 
• 



76900000 
7691.0000 

76920000 
76930000 

76940000 
76950000 
76960000 
76970000 
76980000 
76990000 
77000000 
77010000 
77020000 
77030000 
77040000 
77030000 
77060000 
77070000 
770*0000 
77090000 
77100000 
77U0000 
77120000 
77130000 
77140000 
77130000 
77160000 
77170000 
77180000 
77190000 
77200000 
77210000 
77220000 
77230000 
77240000 
77230000 
77260000 
77270000 
77280000 
77290000 
77300000 
77310000 
77320000 
77330000 
77340000 
77350000 
77360000 
77370000 
77380000 
77390000 
77400000 
77410000 

77420000 
77430000 

77440000 
77450000 
77460000 



IF 



IF 



US 

EN 

NO 

BE 

BU 

EN 

WRITE 

LOADF 

LOADE 

LOAOF 

IF PU 

X 

WRITE 

WRITE 

WRITE 

IF IN 

BE 

WR 

EN 



DATACOMF THEN 

BEGIN 

IF NUMUSFRS * 1 THEN PROGRAMFROMREMOTE * TRUE; 

FOR USER * STEP 1 UNTIL NUMUSERS-1 00 

BEGIN 

WRITE(DCWRITEC*3»FTTHELL0# VERSION)^ 

IF output then; 

IF NOT PROGRAMFROMREMOTE THEN 

BEGIN WRITE<DCWRlTEC*IfFFR0MREMQTE#l2); 
IF OUTPUT THEN IF INPUT THEN 
BEGIN 

WHILE J*CHAR(DCREA0C*3#SKIPCHAR< W % OCREADE *3 »0 ) )X"Y M 
AND J * W N M 00 

begin write cdcwritec*]#fyesorno); 
if output then; 
IF input then; 
end; 
if j « w y w then 

begin programfromremote * true; 
mainuser * user; 

END ELSE 

begin mv(3#crlf,5#dcwritec*3#0); 
if output then; 
end; 
end; 
end; 
end; 
fr * mainuser; 

d; 

t programfromremote then 
gin read(program,io#buffere*]); 
fferfull * true; 
d; 

timE(o,d; 
* true; 

RfPROGRAM); 

«■ false; 
nchf then close(punch) ; 



€ 

% 
% 

m 



« 
« 

* 



( PR INT, FERRS# DIG I TS( ERRORS)* ERRORS); 

TIME(0,2); 

TlMEC0,0)i 

form then 
gin wrjtest; 
itedata; 
0; 



% . 
% 

IF 



ECUTE THEN 

GIN WRITETIMECO'3); 

ITF(PRINT.FASTERISKS); 



SSAGE0(t2); 

ssagettki4#instno); 
sult «• false; 



EX 

BE 
WR 

X 

interpreter; 
% 

ME 
ME 
RE 



© 



m 






• 

• 

# 



77470000 
77480000 
77490000 
77500000 
77510000 
77520000 
77530000 
77540000 
77550000 
77560000 
77570000 
77580000 
77590000 
77600000 
77610000 
77620000 
77630000 
77640000 
77650000 
77660000 
77670000 
77680000 
77690000 
77700000 
77710000 
77720000 
77730000 
77740000 
77750000 
77760000 
77770000 
77780000 
77790000 
77800000 
77810000 

77820000 
77830000 
77840000 
77850000 
77860000 

77870000 
77880000 
99999999 



WRITE(PRINT*FA5TERlSKS>; 

WRITET1ME(0#5)) 

END) 
00 TO ENDOFRUN; 
% 
% 

end initialization; 
% 

abortion! % fatal system error. 
.. messagetto(7j; 

RESULT * FALSEi 

systemerror «• true; 
% 

ENOTERPRET* 

WRITF<PRINT#FASTERISKS>; 

WRITFTIMEC0,IF RESULT THEN 4 ELSE 5); 
IF RESULT THEN MESSA6ETTI (23, INSTNO); 
ENOOFRUN' 

BEGIN DEFINE DUMMY**; 

IF NOT RFSULT THEN MESSAGETT I < 10* INSTNO )} 

IF TRACEALL THEN INFORM * TRUE; 

WRITETIME(0»0); 

WRITFCPRINT,FRULES,RULES[03); 

IF DUMPALL THEN DMPST * OMPOATA «■ DMpSTR «• TRUE? 

IF SYSTEMERROR THEN 

BEGIN WRITECPRlNTtDBL3*FBL); 

for i * 0»1#2*3 00 write(pbintcn03#fsendc0py); 
inform «• true; 

WPlTE(f»RINTtOBL3»FBL); 

end; 

WRlTECPRTNTfFGCS*DlGlTS(GCS)»6CS#DlGlTS(GCTlMECP)+2»GCTlMECP» 

digits(gctimei0)*2#gctimei0); 
if inform or dmpst then writestack(stacksize) ; 
if inform or dmpst then writest; 
if inform or dmpdata then wrltedata; 
if inform or dmpstr or (erroump and not result) 

then stringdump(instno); 
end endofrun segment; 
end algol procedures; 
end end end global stream procedures; 

end program, 

end;end. last card on ocrding tape 



i 

4 
i 

1 



m 
m 



LABEL 000000000PRNT 00177105?USER*SIT£ ; EXECUTE COPY /SITE 



COPY /SITE 



#4*#*» 



* 



■4fc*» v* 



